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COMMENT ONLINE/MAIAT REVISED FEB 1973 TeMebe & Med,G3 %150100010000 
COMMENT? «* TITLE B5500/85700 MARK XIV SYSTEM RELEASE * 00010100 @ 
- * FILE ID? SYMBUL/OLMAINT TAPE [Dt SYMBOL2/FILEOOO i 00010101 
* THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION « 00010102 1 
* AND IS NOT TO BE REMROUUCEDs USED» UR DISCLOSED * 00010103 1@ 
__ __* EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON * 00010304 ss” 2 
* WRITTEN AUTHORIZATION UF THE PATENT DIVISION OF * 00010105 ‘ 
* BURROUGHS CORPGRATIUN» OFTRUIT, MICHIGAN 48232 . 00010106 |@ 
i e OG01O107 ee eee Oe ee 8 
* COPYRIGHT (C) 19719 1972 BURROUGHS CORPURATION * 00010108 7 
* AA320206 AA3B6657 #3 00010109 1@ 
BEGIN Scat cle peta aoe dines we ee POOOD: oper cae ane ters 8 
COMMENT PATCH LEVEL IN COMPILER HEADING Al UGl70QU0uwuWER 00021000 19 
COMMENT 00021005 @ 
ee ee eRe 01" s Cen cee 12 
00021015 1e 
THIS PROGRAM HAS THE FOLLOWING BLOCK STRUCTURE! 00021020 M 
e 15 
(SEQUENCE NUMBERS IN PARENTHESIS) 00021030 "e 
00021035 7 
inant WBE TNS EB OOOO St PON O He tt ie te ‘a 
* : 00021045 ‘e 
* OUTER BLOCK DECLARATIONS 00021050 20 
_—s | Ls Uc). ieee : 
Genceeecasc 00021060 1@ 
* 00021065 Ps 
a OUTER BLOCK CODE FOR FINUING INPUT FILE (5820000)  —— 00021070 _ Picci soe Pat tot tt MN Gh nh Ea pet toa dara 2 SE 2 
- 00021075 ; 
# RETURNS (6090000) . 00021080 1 @ 
_# #wBEGIN 6100000) zt eect crac PN ce ie ce ent 2 
* P 00021090 Je 
“ * SCAN BLOCK DECLARATIUNS 00021095 23 
nates ne a 2 OG 0219 O05 oon ee et eee eee sc 
Fe doawecusece 00021105 re 
* * RETURNI? (20910000) 00021110 =| @ 
Si ee a a a I oe eet A OE A Po Roe an iran een, Bk _ 3 
* * PROGRAM CONTRUL CENTER 00021120 
A * READIT:! (21080000) 00021125 33 @ 
* * Rit Sed OOO Yer al a se Se OU TY BO i eee he 34 
* * CONTROL! (21230000) 00021435 cy 
* * CONFIDENCE (21270000) 00021140 a® 
si ERRORS OST 10000) ee OOD ENTS s 
* * MCCLCOMPILER: (21900000) 00021150 ke 
* * #*BEGIN | (21920000) 00021155 «|@ 
a * " 00021160 a c 
" * * SIMPL COMPILER DECLARATIONS 00021165 ‘ 
: —_— eae ie ae © 00021170 4@ 
* * ee 00021175 45 
* * * SIMPL CUMPILER CODE (32740000) 00021180 46 
* * **END (32780000) 00021185 «1 @] 
r * FINISHOFF? (32800000) 00021190 r 
r ® RUNTAPETESTS! ~C32920000) OI Vapor ae 00021195 as 
* * MCCLRUN? - €33040000) 00021200 = s @ 
i tk **BEGIN: (33170000) 00021205 51 
- 7 : 00021210 5 
* * *# SIMPL INTERPRETER BLOCK DECLARATIONS 00021215 «| @ 
x r oodei2z20. ; 
* ote ee ne ee es 00 21225. ee is 
* “ ‘ ; : 00021230 : 1@ 
+ * * SIMPL INTERPRETER BLOCK CODE 00021235 5 
@ @ 


r ® 
* * * 00021240 
e@ * * * DONE? (44840000) 00021245 ® 
Paes Bea ca No OO) ee tO Na Ee tg es 
1 * ** END (44870000) 00021255 
@ * RUNDISKTESTS3 (44680000) 00021260 
3 * O0O021?2?65 
- |e ‘ **BEGIN (44900000) 00921270 
@ |: * ‘ 00021275 
6 * » DISK TEST BLOCK DECLARA INS 0Q0¢ meee 
7 * * 00021285 
@ | * ioegsesr ess 00021290 
° * * DISk BLOCK it pO11000) OO BI OOS 
ty * *e END (35210000) 00021300 
er ‘* ALLDONE! (55230000) 00021305 
i sates crcl ae EL EN ee ie OO ne eee ee ea 10: Ss 
00021320 
@ : 00021325 7 
le cy ae ae tats a a a la 9G eae et 
6 INTEGER 00030000 
oe” ERRORS» 00040000 
5 Merten ce Sateen RE NTA ITA JMBER Slee tenia meee eee eae 
: SENCOUNTERED SINCE READING THE LAST SET OF 00040010 
or ZMAINTENANCE CONTROL CARDS 000460015 
1 
ZCURREANT DISK AQDRESS CDISK TESTS CNLY) 00051000 
r pa TEST» mie ST CURRENTLY goin EXECUTED" ALSO HOLDS CURRENT 00060000 
§ z Bree, ee N R S 2 uM S0100 ‘ 
ee | STOPPER, 00070000 
s@ RUSED ie TERWINATE CURRENT TEST OK TESTS USING 00070010 
3 wie " ¥ 
8 be DELAY 00070030 
£@F ZOELAY TIME BETWEEN 1/08 * 00070040 
ra pO Rat eee teen eaten ee et tee ee eH 0008 0000 _ Lae 
i FILE CFILE 1162010)... 00990000 
@ MAINT (2210) 00100000 
p INE 1¢62917)3 OOL10000 
BA Bo ae ee ae tee ie OR OT dO iO ition kine ke e000 160000 
SWITCH FILE OUTFILES=LINEeCRILE*LINEsLINE sCFILES 00170000 
SWITCH FILE INPUTFILES=CFILE>CRILE»MAINT? 00180000 be cant 
RSELANSIE SNELL SSS AV ERL SOLES SORENESS RAR ANNES ES Ee EES Oe eee OO eOO000 
DEFINE , 00210000 
OUTFIROUTFILELCOUTSWITCHI#,s 00220000 
PATCHSPATCHFILECPATCHSWITCRI] 4, 00230000 
INFILE*INPUTFILECINSWITCHI#,» 00240000 
TWXSCFILE Rs du250000 
SPOsCFILE#s : 00260000 
DSKaTAPE#s ei . 00270000 
LFILESLINE Rs a 00280000 
COEFILESCODEFILE* 00290000 
Bo ee te ke te de ie ea i ae ae de tit de TO eR OIG IO iO ko ido ink tom te 003970000 
FORMAT DONETESTS¢C"ON@=LINE MAINTENANCE TESTS COMPLETED") » 00380000 2 
INVCMNC INPUT DEVICE UNKNOWNE") > 5, 2 00390000 
WHATUNITCNCR OR SPOe”)» a 00400000 
STARC3OC™ eM). fae tan tee a ee 00410000 
NOTSERC"NCISE ON ERROR"? 1050" 8) > %140300411000 
TERMC"ONLINE/MAINT TERMINATED BY OPERATOR ")3 00420000 
Alclad A al Bi edad eld abt SR ERA th SAE EEL CEN 7 
DEFINE TERMINATESBEGIN — oe 00440000 
WRITECOUTFICOBL Is TERMS _ 00450000 


-DATIME} ie 00460000 


Data Documents/Inc. 


7 o-oo 
3 3 $s SS ‘ Ss F 7 EEE RS 8 


GO EXITs . 00470000 


ENDws %140300480000 e 
BL=BOOLEANSs ; yr! 0100480100 ss 
WRITENOISESHEGIN ONS . : : ¥140300461000 : 
, WRITE COUTFILNOJ»NOISER); %140300482000 1@ 
W 3 4 3 
END#3 140300484000 ‘ 
FIG OIG III IOI III IOI IIIS IOI IOI III IOIOI OI toi ok ieie ® 4004590000 |@ 
STHE FOLI OWING VARIABLES ARE ED FC MPCKA [RAGE O06 9100 0 ee a . 
REAL JUNK» | 00500000 ? 
NT» 00510000 |@ 
wine lt et were tt at ee I nh ote et ee OS DU OO Sed Thad es 
NT3s 00530000 le 
NT 4s 00540000 /@ 
N Se Nt see ene etint S S OOO. Ota tae re a, = "2 
NTO} 00560000 ” 
TIE IIIS III IIIT IU IID ink tink te 00570006 @ 
Ny : 00580000 _.. tS 
MIX, 00590000 ig 
SMIX INDEX OF ONLINE/MAINT 00591000 @ 
Ss xX 005 (© © aa see en ra oP PO ye 18 
ZINDEX INTO TESTARRAY FOR CURRENT TEST . 00592010 "9 
BEGINADDR» 00610000 29 @ 
LOW ADDRESS To BE “STEL 00611000 : 2 
ENDANORs» 00620000 22 
HIGHEST DISK ADDRESS TG HE TESTEU 00621000 23 @ 
____ SEG a a pe OO OD ace tok Seeds = Se ey ee oN 4 
ZNUMBER OF SEGMENTS TO BE TESTED %150100631000 . 25 
COUNT» ng : 00640000 9 @ 
________3USED TO STORE THE RESULT FROM ThE SCAN ROUTINE = 00640100 2 
&DURING DISK TESTS» 1T IS USED TO COUNT THE 00640200 ie 
ZNUMBER OF SEGMENTS WHITTEN CR READ, 00640300 21 @ 
LOCKWORDs 00641000 30 
SIF BIT 47*N IN THIS WORD IS SET THEN THE 00641100 a 
&N=TH SET IN THE EU UNDER TEST I$ LOCKED OUT 00641200 =| @ 
ZONEWORD» 642000, 3 
SIF BIT 48=Z IN ThIS WORD IS SET» ZONE 2 IS TO BE TESTED 00642100 
WBUFF » 00660000 @ 
SLENGTH UF A LINE OF UUTPUT UN THE SPECIFIED 00660100 56 
ZOUTPUT DEVICE CIN WORDS) 00660200 ; ” 
UNIT» . | 00670000 : 34 @ 
eee ZLUN OF THE UNIT UNDER TEST 00670100 a 
TINUs 00680000 40 
ZHARDWARE UNIT NUMBER OF THE UNIT UNDER TEST %#150100680100 «|@ 
LOFT» _ 00680300 ae 42 
STIMECL) WHEN THE LAST IT7O FINISHED 006680400 
OKTYPEs | 3 ae 00690000 : a®@ 
Z™1 If 20 MS, ze If 40 MS, ; : 00690100 eee 4g 
INSWITCH» 00700000 ‘8 
BUSED AS INDEX FOR INPUTFILE 00700100 Pi _d| 
OUTSWITCH» 00710000 . ‘8 
RUSED aS INDEX FOR OUTFILE | 00710100 as 
eee CSWITCHs . re | 00720000 ‘ 9 @ 
a __%USED AS INOEX FOR CONTROLFILE . _ 00720400 | a st 
a PATCHSWITCH>» 00730000 5 
ZUSED AS INDEX FOR PATCHFILE 00730100 i @® 
LSWITCHs | 00731000 __ _ 
ail SUSED LIKE OUTSWITCH DURING COMPILATION. . 00731100 ° oe. Ss 
ss SEGNOr | oe cee 00740000 See | @ 
pte _ Uo RNEXT. SEGMEN QO BE WRITTEN IN CODEFILE ... -0074100 es CY 5, 


oo nx wm TF fF WH = 


Data Documents/inc. 


NUMBEROFTESTS» 00750000 
@LARGEST TEST NUMBER ALLUWED 00750100 
P LOK 08 29 64 oem eee ene eae ae 
e ZCORE ADURESS OF INPUTBUFFER 00770100 
LASTSCANs %140200771000 
y § A NTAINS THE ADDRES F 
2TQ BE SCANNED, 2140200771200 
FIRSTSCAN»s 140200772000 
SFIRSTSCAN CONTAINS THE AbDOURESS Ck THE F R 00772100 
RCNON@BLANK) SCANNED, 4140200772200 
ACCUMULATOR» 4140200773000 
SCONTAINS THE ADDRESS WHER HE NEXT ss 0200773100 =e 
SCHARACTER IS TG BE SAVED %140200773200 
SPECIALCHR» %140200774000 
%ZCONTA NS THE NONTALPHA CHARACTER SCANNEU BY SCANIT %140200774400  ——_ 
EMPTY» %¥150100774200 
% OCTAL 777/77 %150100774300 
SSET OMIT = NOT TUNEUP 50100774350 ee ik Ee 
SDELTAs %150100774400 | 
EXPERIMENTAL DELTA FACTOR %150400774410 
$POP OMIT 007 110 |e 
ERRORS 00780000 
ZUSED TO STORE ERROR NUMBER CR NUMBER QF. ERRORS 00780100 


SON CURRENT TEST 


00780200 


FoF ee IT iG fk io TR gk ii koto ion teen 00750000 


Cee ree 


2 > 5 3 —khS aS ~. ~ > = 


LIST 140400791000 
TESTLCTEST),» %$140400791100 
STOPLCST@PPER)» %140400791200 
ERRORLCERROR)S #140400791300 

Cae Nee eHeeON NCHS AORN EETHN ERE ENA EOR ETT EAHA H RAO Sed eedee tea ne bene eds0Q792000 _ 

BOOLEAN 00800000 
TSS, eee 
4TRUE WHEN RUNNING UNUDER TSSMCP 00800; 
TESTMASK>»s ¥150100800300 
SIF BIT 47="T IN THIS WORD IS SET» TEST T 1s SCHEDULED 008C0400 
IS SCHEDULED (DISK TESTS ONLY). SEE BEL 150100800500 
*EXCEPTIONS %150100800600 
NDMASK~s 4150100800700 
SIF BIT 47*T IN THIS WORD IS SET» TEST 1 IS SCHEDULED Oo8vu0g0o0,—— 
WITH LIMITED OUTPUT CUSED WITH TESTS. 3 & 413 QNLY) %150100800900 
ROMASKe . %¥150100801000 
SIF BIT 47"T IN THIS WORO IS SET» TEST T IS SCHEDULE __ 00801100 
ZFOR READ PASS ONLY (CIF ROMASK NE® O THEN TESTMASK 02 00801200 
OCTL» 00810000 
_RDISPLAY PA Ri Y 3*BIT OCTADES 00810100 
Pow. 00620000 
BOYSPLAY PATTERNS IN BCL CODE 00820200 
\ A i : HOB sugnn ees 
NO WRITE TESTS TO BE PERFORMED 00830100 
WRTLOCKs 00840000 
ZPART OF TEST AREA CUR TEST UNIT) LOCKED QUT 00840100 
DONE TOGs . ; ° 00850000 
&N0 als REQUESTS” 10 PROCESS: 90850100 
AREACLEAR ; re -. 008690000 
STEST “AREA ON DISK OCCUPIED BY TEST FILE 00860100 
FILEQRENEDs 00870000 
AOUTFI 1S CPs y ____ O0870100 
TWXOUT?. 90880000 
ae As. To eee oR TAX 00860100. 
OMP ATA OO890000. 
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%ZDATA ERROR GN LAST READ OPERATIUN 00890100 
ABREV» 00891000 @ 
SABREVIATED QUTPUT ON CURRENT TEST %150100891100 _ nr eee 
~ TGNORERRORSs 00892000 1 
BNO _ERROR QUTPUT ON CURRENT TEST 00892100 | |@ 
_NO NERR 40300893000 = 3 
*NOISE ON ERROR ON CURRENT TEST CleEe LINE OF "#") 4140300893100 4 
LST» 00900000 |@ 
ZCOMPILER LIST UPTJON IS SET ss i OOO 8 
JUNKBs 00910000 - ale 
ZTEMPORARY STORAGE«e | 00910100 | |@ 
_ COMPILING» oo920000 == s 
SIMPL COMPILER RUNNING j 00920100 19 
SAVETOGs 00921000 |@ 
emia SAVE INPUT TO SCANNER 0092110 : 2 
SAVING» UCIT 8 
%A DEBLANKED COPY OF ALL INPUT IS BEING RETAINED %¥140200922100 @ 
_CONF »s ; 4140200923000 = 18 
TRUE WHEN RUNNING OR COMPILING a CONFIDENCE TEST  %140200923100 
PAGE3 00930000 |@ 
%PAGE CUTPUT DEVICE BETWEEN ERRORS 00930300 18 
Be Wo iii ak foi ii Ii a RI RIGOR ROG IG io oiioninitiea waniett 00940000 ig 
LABEL | A : | 00950000 | od @ 
RETURWNs 00960000 — . a 
ALLDONE» 00¥70000 2a 
ae 00980000 ue 
omens PRIN TOS SB sa OD SO Oh oes ets ty stincgi cpa teens ee ee aot aarti 2q 
REPT ER SENT AES SACRA ESSE TATE CREE SAAR AANA EASE N ES SOT ARS EE DET Ae a Nene ee eSOLIC0000 . R 
SAVE ARRAY oe 01010000 | 3 @ 
OGrR Q 0 NO Ocoee A eo ec, Be 2 
SCONTAENS TAPE OR DISK CONF TEST RESULTS TO BE LUGGED%140401011100 28 
INPUTBUFFER(O%10], 01020000 ry @ 
—_____._____SCONTAINS LAST CARD IMAGE READ 207000 ee aerate ear 2 ae ee a a 
JUNKBUFFER(Ot60]1» | 01030000 3a 
STEMPORARY STORAGE ARRAY 010301400 , | @ 
___TESTBUFFER[O!5)> 0104 ge te ata 
BACCUMULATOR FOR SCAN ROUTINE 019040400 
TRANSLATEBUFFER[ 037)» 01050000 3@ 
ZTRANSLATION TABLE FUK INT@*8CL TRANSLATOR 010501300 i i 
OUTBUFFERLO?2913 01060000 . il 
ZRESERVED FOR BUILOING OUTPUT MESSAGES 01060100 4@ 
Hoe Wile oh ee ee ek oe KK RHEE ENE EKER REKERENE EEE EHEDOLTOZTOOOD asa, 39 
ARRAY 01080000 “ 
TESTARRAYLO%63]3 01090000 «|@ 
x RRA T]= 01990100 of sh 
% t182)80* FULL OUTPUT mein 01090200 : 
% #1» ABREVIATED OUTPUT 01090300 4@ 
% see NQ OUTPUT | 01090310 49 
% 23» NUISE UN ERROR OUTPUT %140301090315 6 
% { 3% 1] = NUDATA % 150101090320 \@ 
% ai = KEAD ONLY %150101090322 ‘8 
x £ 5$13) = NOT USED Seg ye te “ 
% CAB{Q]SHAIT TIME BETWEEN I/0-S — . 01090330 = @ 
x TO61STEST NUMBER P 0.49090: ae : 5 
i % CCF JeNUMBER OF TIMES TEST. To BE RUN 07090350 8 
% DURING COMPILATIUNs TESTARRAYLTEST] CONTAINS 01090400 sq @ 
% Lis1j= = TEST NOT YET ENCOUNTERED 01090500 
BS % . TEST FOUND: 01990600 ae cay 5 
Bs i tora = RECATIVE ADDRESS IN ROOT SEG 01090700 ay @ 
bd % oo CONTAINING BRANCH TO TEST > 01090800 Bie! ie ee j 
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@ 
% CFF] = 1 IF TEST PERFORMS WRITE 01090900 
é % QR ERASE OPERATIONS 01091000 @ 
% Qe OTHERWISE O09 SP tan aces 
1 FIR IIIIOIII OR IOI IG II GI OIIUIDIOIUIG IOI GIOISIG IO Inga iineisie® 201100000 
@ |: DEFINE 01110000 
3 __ TOMASK#3"2000000000"%&, OQ1120000 
4 LOGKEY=(COREAUOR(LOGHUFFERL1]) 2H» 01120100 
@ | SSET OMIT = DEBUG 04120200 
. NK PSLINKUP( 2120 & COREADDR IGRUFFER OU iO 300 ts 
iu $SET OMIT = NOT DEBUG 01120400 
r Bk LINKITUPaS#s 01120500 
9 $POP 0 OM = —OF120600 2s 
hy LOCOUNTS=PATCHSWITCH#s 01120700 
eo. SEGCOUNT#LSWITCH4>» 01120800 
be a OEM Og 5 ge oe ee OPT BOO OOo 8 oe oc ee 
d MAXPATTERNS=1 282%» %140401140000 
@' MAXBUFFS=88, 01150000 
i to EOS EL EBB eB ar OE OOOO a 
6 MAXSEGS=S64#, 01170000 
ev NUMBEROFDISKTESTS=14és %150101180000 
i cee NUMBER TARE TS Se a 0 es Rae 
| le CF333215#>, 01210000 
@ » FFEL8t15#, 01220000 
} sc BUS OM SS on OO I000 Oc 
P HF 2321545 01240000 
@» SCF333°9#, 012500C0 
i aE UES TS LO aa oe SO COO occ, pete tice 
P CTF R1Bt332154» 04270000 
er FIFs18ti831sas | pee enone 
a mA 3B1103 ; O 0000 Soa nen 
pe CTHF=3%33315#» 01300000 
@ » CTSCF#33239:983 01310000 
SUI UIIIUIUIIGIOIIIIIUIGIIIIIGIIG GIG ICICI IGT IUIDIOUI CO oiidiligiigieiicgine 01520000 Be ea ee 
INTEGER STREAM PROCEDURE COREADORCVAR); : 01330000 
& BEGIN SItsVAR# COREADDR#=$13 ENDS 01340000 
Be kek ee ee tk Re ee ie ete 01950000 | Sagestnstleditn cteet. Ses ae 
STREAM PROCEDURE CLEERCAsL)4 VALUE Aol 01360000 
@ BEGIN LOCAL LL3 01370000 
SI8sL0c £3 SltaSI+6s DI ssLUc Lis UlsaDI+73 OSS=CHR3 0 380000. 
DI:sa3s OSt=s8 LIT * "5 SLseazs 01390000 
@ & LLCOS%=32 WOS# DSt=32 WOS)} DSt=L WDSs : 01400000 
SINR a A te ee ee OPM O00 2. 
4 FoI IO IG III IG GI III III GOI III III Onna one ti 01420000 
@ DEFINE CLEARCCLEAR1»CLEAR2)= 01430000 
CLEER(CCOREADDR( CLEAR] ps ENIITERCCLEAR2" 1283 01440000 eee 
BOUTS GINO IE IEUIUG GR IDOI got ik tid th intent 01450000 
€ REAL STREAM PROCEDURE BSc MAR CEs VALUE NR3 : 01460000 
BEGIN QO1470000 
é SIt=L0C NR$ 01480000 
@ Olt=LOC DECMAL3 01490000 
: D5328 DECS 01500000 7 
° END3 ; 01510000 
€ B RaGteasssssseysgeassegerts sensei teaeergntinenatansesses eet easenaeseaa$s901510100 
NTEGER : se : ie te me %#150101510200 
B2 FSTERR» %¥150101510300 
@ F ZINDEX OF FIRST WORD IN ERROR %150101510400 
54 WROERR? ¥150101510500 = 
5 ¥NUMBER OF WORDS. TN ERROR i. ; #150101510600 
@ fs CHRERRI - #2150101510700 
e _RNUMB ER OF CHARA I SRS IN: ERROR. i ae 150103530800 
e 
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Foe ee et I III III II IG I IOIIIGIGIGIO I II GIIOIOIOIIOIG IO OG ict icioiiciniee 01915000 


BOOLEAN PROCEDURE 8IGCOMPARE(NSAPRISVALUE Ne APBSINTEGER No Ar B3%150101515100  ] 
B \ ” () co my 
Gea Gae nv snake sa Giada eee teu ee eyo 00550 ls onde ip usaeiie sc isaastuciseo00s 1 
BOOLEAN STREAM PROCEDURE COMPARRCNROF WDS»As8)4 %150101530000 2|@ 
COMMENT COMPARES NROFWOS WOHUS STARTING AT ADORESSES 039530300, sis 3 
A ANC Be IF AN ERROR OCCURS» THe WORD RETURNED IS AS 01530200 P 
FOLLCWS! %150101530300 3|@ 
cee a i ne OO OO ea, Be uy tert 8 
L18t!6]=2NUMBER OF WORDS In ERROR 01530800 ? 
[24%12]"NUMBER OF CHARACTERS IN ERROR 01530900 :|@ 
3616]= INDEX OF FIRST ERROR ; O1531000, 9 
C42:6)=1 01531100 19 
; 01531200 @ 
Pett Se ; sie ina BO POA DO OOO ected es a " 
BEGIN " 04550000 a 
LABEL BADsX1T*#Es0K3 01560000 @ 
Wo OAL TEMP EBRORSERRORS»TSIS 00 UU ONO 15 
DIs=LOC ERRURS$ D1ts0l+4> DS:eL iT "143 015980000 16 
Sltens Dit=bi 01540000 /@ 
=13 ig 
NROFWOSCIF 8 SC#DC THEN 01610000 i 
BEGIN 3 01620000 4 @ 
q : . 21 
TALLYS=TALLY413 01940000 
. Ok 01650000 
wa EE OF OB 0000 sles Se SthiptesiGecee eat aeea 
BEGIN 01670000 
ERROR(JUMP WUT TO Es TEMPISTALLYS 01690000 
ae 3 R ts ’_TA = Shey Paarl oS cheers en ee aS a Re 
E: 01719000 
TALLYt=TALLY 443 01720000 
ees ies - SLtsSI=Bs Dit=p1-8; 04730000, 
BCIF SC#DC THEN ELSE 01740000 
BEGIN 01750000 
ae ee _TSls2513 SltseERRORSs § 5 01760000 — ——s—is 
ERRORS#=sS[3 Syt=TSI3 01770000 
END); 01780000 
es ea ta ene OE VOU ice aw “i 
SRRORCIUMP QUT TO BAD); 01800000 . 37 
GO XIT3 | ‘ 01810000 1@ 
BAD: 01820000 ant 39 
TSLS=TALLY3 Sl:=LUC TSI3 Slt=SI+7s 01830000 é 
DI$=LGC COMPARRS UI3=01433 DStsCHRS 01840000 «|@ 
SItsL0C ERRORS$ SIt=SI+o3 01850000 - 42 
OSt=2 CHR} | 01860000 4 
SlimLOc TEMPS Slimsie7 3 DSteCHR# OSs=eLIT "143 041870000 4 @ 
X1T3 ENDS 01880000 r 
BOOLEAN ToR3 02000000 4 
INTEGER To JsKeE Coke Wo Gs 02010000 7 @ 
2 02020000 ie 
“TF N LSS 0 THEN 02030000 4s 
‘BEGIN . 3, . 02040000 1@ 
ARR AaNaLE - ; ae es a 02050000 51 
SEE OUEY Cd BEES 02060000 5 
ENDS 02070000 s1@ 
FResEMPTY3 , 02080000 
FOR [teCON+62) DIV 632°) § EP ei UNTIL 0 DO 02090000 P 
BEGIN 02100000 s @ 
UF TasCOMPARRCIF I°NE@°O. THEN 63 ELSE a | _ 02410000 : 
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e q 
IF st5N MOC 63 = O THEN 63 ELSE Jes 02120000 
@ | AeB) THEN %¥150102130000 G 
' ECHBEC+(KSREALCT)).C271925 02150000 
@ » WIEWHK L1826)3 02160000 
a SE MBP HEN Fisk 616)+G 0 V000 EE 
4 END; 02180000 
@|: At=A+6393 Bt=Bt+635 Gi =44+633 02190000 
6 ND N2200000 Re 
? BIGCOMPARE®=(CHRERRI®EC) NEQ@ O3 %150102390000 
@ FSTERRtsIF FEEMPTY THEN O ELSE F3 ; %150102400000 
8 WROERRS aw : se Mle Seas 
be END3 02420000 
@ a BUGIS IOI ISIS IOISIISOIG IIS III ISOC oti tt et ne024 30000 
N2 IST DIFFLCCHRERR»s WRDOERRoFSTERK)S #450102430100 = 
: JOU IUIUI ISU UIUIIEIOII I UISIIGIIGUICISIUIIN GI IU Retire ake ee HH OZ4B L000 
| REAL PROCEOURE SCANITS %140202490000 
iS BEGIN ] 120 DOO oe Ae oe ee 
(6 REAL STREAM PROCEDURE SCANAWQROCTESTAUFFERS %140202510000 
ee” FIRSTSCANsLASTSCANs SPECIALCHR» SAVINGS ACCUM) %140202520000 
: ——VALUE SaVIngg 0 eaogossyoogg = 
‘ BEGIN . oe %140202540000 
§ COMMENT SCANAWORDS COMMENCES SCANNING AT FIRSTSCAN %140202540100 
2 
fe IS ENCOUNTEREO. JF THAT CHARACTER JS %140202540300 
@» A LEFT ARROWs SCANAWORD RETURNS A VALUE OF %140202540400 
2 eee eee " " RSTSCAN AN STSCAN AR a3 een ee 
ps POINTING AT THE LEFT ARROW,  GTHERWISE, IF. #140202540600 
@ ps THE FIRST NON"BLANK CHARACTER (FNBC) IS %140202540700 
p7 S"ALPHAs S PLACE SPE 4g 540 eens: 
2 IN THAT CASEs FIRSTSCAN wILL POINT AT THE %*140202540900 
@ FNBC AND LASTSCAN WILL POINT AT ThE CHARACTER %140202541000 
BO F UWIN SCANAWORD R RNS A OF 14020254 


ZERO. IP THE FIRST NON@BLANK CHARACTER IS A %140202541200 
DIGIT» THE SCAN CONTINUES FOR UP TO 8 DIGITS, 4140202341300 
ThE NUMBER SCANNED IS CONVERTED TU AN OCTA 414020254 oe 
INTEGERs AND PLACED IN TESTBUFFERCO). %140202541500 
FIRSTSCAN IS LEFT POINTING AT THE FNBCs LASTSCAN%140202541600 
POINTS AT THE CHARACTER FOLLUWING THE NUMBER, %140202341/700 iO 
SCANAWORD RETURNS “(NUMBER OF DIGITS IN NUMBER) %140202541800 
FINAULYs IF THE FNBC IS A LETTER» UP TO 16. %140202541900 

ALPHA CHARACTERS WILL BE PLACED IN TESTBUFFER, %140202542000 

FIRSTSCAN WILL PUINT TO THE FNBC» AND LASTSCAN 140202542100 


a Ae A 8 ee ne 2 ee 


WILL POINT TO THE FIRST NON*TALPHA CHARACTER %140202542200 
OWING IT, 402025423( _ 
SCANAWORD RETURNS THE LENGTH UF THE IOENTIFIER 140202542400 
SCANNED3 oes ee ; %140202542500 
OCAL SCANCOUNTeLSCAN#F SCAN} 40 55000 


LABEL B»sNUMBERsXITS %140202500000 
STtsFIRSTSCANS DIS=LUC FSCANs NSt=WOSs SItsPSCAN} %140202570000 
DItsTESTBUFFERS DSt=16 LIT " 5 %140202580000 _ 
Bi IF SCs" " THEN BEGIN SYtsS1413 GO 83 END3 | 4140202590000 
IF $cate" THEN a a %140202600000 
BEGIN... on ee : a ene 8140202610000 
DI?*=LOC SCANAWORD$ %140202620000 
OS#s8 LIT "OQOO77777"3 %140202630000 
FSCANSSS15 LSCANS=SI3_ 2140202640000 _ 
ony OO. SMPTE coe ae ie es %140202650000 
ENDP gee -— Gis AE . 4140202660000 
UPSCANS@SE) oo aS ee | : ee _¥4140202670000 


< 0 zy y a a * : : 
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a * * E wo 7s KS = aa 3 3 » ; 


a 


SAVINGCSI tsaAcCCuUMs OLS=LUC LSCANs UStswDS;3 140202680000 
DIt=sLSCANS SI%=FSCAN; #140202690000 
—~————--TE_SCs ALPHA THEN A027 INN 0) 
BEGIN %140202710000 
OStSLIT * "3 %140202720000 
ete __If Sc LSS "O" THEN OBO DPZOO00 bebe stata 
1OCIF SCSALPHA THEN OS2=CHR ELSE JUMP GUT)%3140202740000 
ELSE %140202750000 
6 SC GFe "CO" THEN 5 QQ "9" THEN 4140202760000 2 on 
DSssCHR ELSE JUMP OUT ELSE JUMP OUT)5 02770000 
END ELSE %140202780000 
SC NEGO tH THEN TF SC NEG "3" THEN DSteCHRs 2140202790000 © 
LSCAN2=DI3 SI[t=LOC LSCANS DI:=ACCUMS DSt=WDSs %140202800000 
SIt=F SCAN); %140202810000 
hs erat Dig ill on RPE OUR ORR Sa ee BOI 8 O00 0 ae eh ee 
oS%28 LIT "00000000"; | %140202830000 
DIsaDle is *140202840000 
eae te aerate ers _IF SC3ALPHA THEN DIt=TESTBUFFER ELSE 140202850000 = 
BEGIN %140202860000 
DSS SCHR %140202870000 
LEAN ST 140202880000 a nse ae 
GO XIT3.: %140202890000 
ENDS. %140202900000 
____sBEIF Sc GEQg "O" THEN IF SC LEQ "9" THEN 40202910000 
BEGIN SIlt=Sl+is TALLY:=TALLY#13 END %*140202920000 
ELSE JUMP OUT ELSE JUMP OUT)5 %140202930000 
Boe cates SC NING CNT aN a ROO A900 0 0 ot eater 
SCANGCOUNTCJUMP QUT TO NUMBER); %140202950000 
1OCIF SCSALPHA THEN %140202960000 
eat = ; A z j M : 2039) eae ee eee 
LSCAN?8SI1; %140202980000 
SCANAWCRDS=TALLY3 *%140202990000 
etree Se reer 
NUMBERS %140203010000 
SCANAWORD!&TALLY3 %140203020000 
fae oie oe IG ANE OD a a ee W090 90000 2 
STt:=SfT-SCANCOUNT; *#140203040000 
DSt=sSCANCOUNT OCT %140203050000 
ee DTELOC SCANAWORDS DSFSLIT Mos 140203060000 
XIT? STtslOC LSCANS DIT=SLASTSCAN) DSieWwDS; %¥140203070000 
SItsLOC FSCANS DIt=FIRSTSCANs DS8*WOSs . %140203080000 
_END$ %140203090000 —__- _ 
% ¥140203091000 
SCANITS=SCAKAWORDC(TESTBUFFERSFIRSTSCAN* LASTSCANA %#140203100000 
SPECIALCHIR» SAVING» ACCUMULATOR D3 %#140203110000 
END3 140203120000 — 


RII IOI IIIS ISIN IO IGS IG Gr iotoni eit oninenie kee 03121000 
REaL STREAM PROCEDURE WHATWURD(TESTBUFFER®s CUMP ARE BUFF as LENGTH )$%140203122000 


VALUE LENGTH; 140203123000 

COMMENT WHATWORQ SEARCHES COMPaREBLUFF FOR LENGTH %140203123100 

WORDS OR UNTIL A MATCH WITH TESTBAUFFER IS %140203123200 

FOUND, IF A MATCH TS FOUNDs WHATWORD RETURNS %140203123300 

pls Gaur OF THE NAT CHING baile OTHERWISE, %140203123400 

A IF. "4°18 RETUR Bees 020 4 3500 

; % 140203123600 

BEGIN %140203124000 
ABEL XIT3 | _ 140203124100 

SltalESTAUFFERS " ; *140203124200 

DI tsCOMPAREBUFFS.. _ %140203124300 

NGTHCIF: 8 SCROC. THI Ne are oe ee age ct 440209124400 


oon @ mk wn = 


= 
i=} 


— a a 
wo wo ~ 


wy 
= _ 6 
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A A) 


Bw = 5 


GS F = FR 


BEGIN WHATWORUESTALLYs JUMP OLT TO XIT# END 4140203124500 
ELSE Rae % 140203124600 e 


TALLY&2e213 WHATWORDSSTALL YZ %#140203124800 
OI telLOc WHATWORDS DSSSLIT"+";. %140203124900 
BT os ee OO Be OOD. 2 = 2. 
FOO ee II III III III III II IGOR III III OI IDI IDG IG I Ge iio inicis 69609126000 
STREAM eee VALUE MOVECNs Ay B)$ VALUE NeAob3 Seite 
Q i Oo000 
SIteLac 3 SlisS1463 D1#eLOC NNS DIsebl+73 OStscHR3 03150000 
SItsA3 Ee 03160000 
NNCO = >; OHSis WOS)s OS3 an wOS 3 O31%70000 _ ee 
ENDS 03180000 
Fai te te tT III TIO RTI IOI OIG IGG ogni to tet 03190000 
_____.__... STREAM PROCEDURE CHARACTERMOVECN»A,H)S VALUE NeApBs = 8200000 
BEGIN LOCAL NNeNNNG 03210000 
SItaLOC NS SI&aSl453 D1ssLUC NWNS DI seDI+73 OSt=CHR; 03220000 
SLOG NNE OTSsDI+73 OStSCHRA BT OOO 
SIisA; DI&seBs NNCOSis3e2 CHR DSt=32 CHR), OS%sN CHRS 03230000 
NNN(8(016(0S8=232 CHRI) 25 03231000 
0 Q NOOO 
eae IE I OI II III IOI IDS OIG IOI IDOI ine toe 00809250000 
STREAM PROCEDURE FUNNYMOVECN®A26)3 VALUE Ne As 03260000 
BEGIN SItsAsOlt=BsnCNSts6 CHR)’ ENDS 03270000 =e 
Fae TOI TIER IOI TOI TI IOI III IOI IAG Ik ei 09280000 
STREAM PROCEDURE EDITRRCLENGTHs SOURCE sPEST»BCLSOCTL» %150103290000 
COMMENT EDITS LENGTH WORDS FROM a AND PLACES THEM 03290100 ie Bea ce nee 
AT 8, IF BCL 1S TRUE* A-TRANSLATION FROM 03290200 
INT TO BCL JS PERFORMED. TRANSLATBUFFER IS THE INT@ %150103290300 
BCL TRANSLATION TABLE. F TwxOUT IS TRUE 150103290400 
EACH LINt IS FOLLOWED BY A LEFT AKROWS 03290700 
TRANSLATEBUFFERsTWXOUT)3 %150103300000 
VALUE LENGTHs SOURCE s6CL>/OCTL » TWXOLTS ee SAS fees ee 
BEGIN 03320000 
LOCAL TEMPSs»TEMPOs,TEMPRHS 03330000 
LABEL XITS eTieia Tay Q3340000 20 
STtsSGuUuRCE; 03350000 
TEMPS2=Sl3 03360000 
BCLCDI%=SOURCES TEMPOS=015 3150103370000 eee 
LENGTHCACDItSLOC TEMPR: Oltepnl +73 OStsCHR 03380000 
TEMPStsSI3 SLUSTRANSLATEBUFFERS SItsSIl+TEMPR 03390000 
taTEMPO}R DoreCHR; MPO sep 037400000 
S]tsTEMPS))3 03410000 
SIlt=sSOURCEs YUMP CUT); 2150103420000 
DI tsDEST3 03430000 solules Scns Stats eas 
TALLY$@43 TEMPSS*TALLYS ~ 03440000 
OCTLELENGTH(2CBCOSt #4 RESET} 3CIF SB THEN OStsSeET ELSE 03450000 
DSteRESETS SKIP SB)s _03460000 
)STEMPSCOSS=LIT " |VYADOTSLIT " "Ys 03497000Q 
JUMP QUT TN XIT)3 03480000 
LENGTH(CDS%8s8 CHRs OStslLiT ™ "93 03490000 
XITs TWXOUTCDOS2sLIT "e")s ENDS 03500000 
TG OHIO i Ini IO iGo i ai fa OS i io he idk d in inicnik kis 6403510000 
DEFINE EDITRC As Be Cee Eo Fe Go FEDITRACAs Be Cols Es Geb) te %#150103520000  —__ en 
EDITCEDITL»>EDIT22EDIT3*EVITG*EDITS»EVITO*sEDIT7sEDITS)= %150103520100 
EDITRCEDITL» COREADDRCEDIT2 *EDITI+EDIT4* EDITS»EDIT OD 03530000 
® 5) # 03540000 ee 
TE ee TTT EEE 
INTEGER PROCEDURE. 6 apr Nat hr el ee 03550100. 
_ BOOLEAN. OK»SK t sre : 63550500. 
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n Sy z 


2&6 2S SEEN S EES 


BEGIN 03550300 
03550400 e 
COMMENT READS CFILE AND RETURNS THE FOLLOWING DEPENDING AY OO te a Se 
ON WHAT HAS BEEN. ENTERED? ; 03550600 . : 
: , : 03550700 | 1@ 
1=S5KIP ; oe Se OFS50800 on oe 3 
2=STOP 03550900 4 
3=0K 03551000 ‘|@ 
4awy ____..03551100 8 
| 03551200 | ; 
; 03551300 1@ 
INTEGER STREAM PROCEDURE SSORGK(BsCeUKsSKPIZVALUE OKs SKPS 03551400, 8 
BEGIN LABEL LeLL»sXIT3 03551500 
SL:=RsL? IF sc="e" THEN GU XIT ELSE IF SC=" " THEN 03551600 /@ 
___ BEGIN SItsSI41;G0 Ls ENus _..93351700 is 
IF Sca"S” THEN 03551800 bas 
BEGIN SI#sSI+43 03551900 \@ 
SOK THEN TALL YS eSKP ELSE IF SCS8"1" THEN TALLY$s25 03552000 9 
END ELSE 03552100 rs 
IF SC="O" THEN OKCTALLY!=3) ELSE %140003552200 @ 
IF SC#"W" TKEN TALLY2=43 63952900 on ee Oe "9 
SSOROKI*®TALLY3. 03552400 "9 
OKI=TALLYS | Rake : 03552500 -y @ 
OK MP OUT TOD x ; OO R600 oy 8 6 a 
O1ls=cs0S:25 LIT "ERR: ts 03352700 i 
LLtOSt=CHRs IF SC NEO te" THEN GO LL3 03552800 23 @ 
SCs Ga AEE 2 11 Yee eee ee Pr dee Pe EE M6 nc) °c ](c A aD ee 24 
SWITCH FORMAT AXtec"SKIP OR STOP")»C"STOP OR UK")s> 03553000 2 
C"SKIPs STOP OR OKN)S 2140403553100 24 @ 
NIFGER 13 03553200 2 
LABEL INV3 03553300 1@ 
% 03553400 23 
INPUTBUFFERCLOJSSREALCNOT FALSE D3 OF ke i> E10] eee eee ie 
SKIPS#SKIP AND TRUES %140403553520 d 
OK$30K ANDO TRUE; 3140403553540 /@ 
INV3 03553600 
WRITECCFILE* AXEREAL(SK IP )+2XREAL (UK p= 11)3 03553650 
REAO(CFILE,10»INPUTRUFFERL +1)3 03553700 3 @ 
IF 1s=SSOROKCINPUTR AUF KR» QUTBUFFER»sOK»sSKIP)=0 THEN %140403553800 36 
BEGIN 03553900 . A 
WRITE CCF ILE» 10» QUTBUFFERL#3)3 : 03554000 4@ 
0 IN 03554100  —_—s” a 
ENDS 03554200 e 
SKIPSTOPOROKi#]3 03554300 a1 
ND} 99.9 440 0 en se es eS eee Bs es 
FO III UII OIG IIS INICIO IS RIG IOI Orion iieionat eita te 09555000 : 
BOOLEAN PROCEDURE STOPRERCHECK (IT) 3~ oy %140203556000 | 4@ 
Vi 3; BOOLEAN IT3 . %140203557000, | 49 
BEGIN %140203558000 10 
COMMENT EXAMINES STOPPER & IF VALIp "IN30" MESSAGE %140203558100 |W) 
HAS BEEN ENTERED THEN WRITES OUT THE APPROPRIATE%140203556200 
TERMINATING MESSAGE AND SETS STOPPERCHECK TRUE, %140203558300 ae: 4 
IF STOPPER LE@ 0 THEN CHECKS FOR A VALID -<MIX>IT%140203556400 - 3 | 1@ 
MESSAGE AND. SETS STOPPER To THE APPROPRIATE VALUE “93558500 : 61 
AS DETERMINED BY SCANNING ThE <MIX>AX MESSAGE %14020 3558600 
AND PROCEEDS AS IF STOPPER HAU BEEN SET BY THE %140203558700 @ 
MIN30" MESSAGE. B140203558800 5 
p : Pee %140203558900 : a 4 7 : 


INTEGER WeCOUNTS %140203559000 eo | | oo @ 
LABEL CHECKIT*BADITsCONTRUL sCHECKSTORPERAT WO%XIT rb ¥140203559100 cee ae ee 


FORMAT 
INVINC™INVALID LINE"sIT Gate)» 
N “INVALID INTERRUP QUESTe™ )» 


4140203559200 
%#140203559300 
4140203559400 


@ 
@ 
1 IPCC"ENTER INTERRUPT REQUEST®")» %140203559500 
@ |: TERMTESTC"TEST #"s129" TERMINATED BY OPERATOR"); 03559600 
3 EFIN 0203959 
4 SCANSBEGIN FIRSTSCANSSLASTSCANS 4140203559800 
eo; COUNTP=SCANI TS %140203559900 
§ NDF 0203560000 a 
7 WORD®*WHATWORD(TESTBUFFERs JUNKBUFFERs11)#3 %140203560100 
ee: IF STOPPER LSS 0 THEN %140203560200 
9 BEG %140203560300 
No STOPPER: =Q3 4140203560400 
@) GC CHECKITS %140203560500 
n2 END; %140203560600 | _ 
IF STOPPER NE@ O THEN %140203560700 
ee. BEGIN %140203560800 
ps I STOPPER®3 OR CONF AND STOPPER LSS 4 THEN  %140203560900 —__ 
N6 GO CHECKSTOPPER; %140203561000 
7 WRITECCFILE® INV INs STOPL D4 %#140203561200 
: one 
9 END3 %140203561400 
i IF IT THEN & <MIX>I1 %140203561500 
22 CHECKIT£ IyPUTBUFFERLIOJSSREALCNUT FALSE); 4140203561800 
OF IF TRUE THEN %140203561900 
5 I NK BUFF ERI *®) WITH RDOZO00 ~~ = 
a "CONF ", & 0 %140203502100 
5@ bg "OUT Wy, 8 | %¥140203562200 
§ b WIN " i 0356 00 
eed WBCL eae, a) %140203562400 
07 "ucT ", & 4 %140203562500 
rr) \ vin ¥ a : 02035 OOO 
“OQUTPUT “» % 6 %140203562700 
@ "STOP ", & 7 | %140203562800 : 
Be rest ot Sn en Op ee MOO TOR SOON co. coe oy 
"SKIP ", & 9 %140203963000 
@ "TEST " 4 10 %140203503100 
SE 40203563200 | 
p BADIT? WRITECCFILEs INVIT)3 %140203563300 
@ * WRITECCRILE*IPC)3 %140203563400 
READ(CFILE +10» INPUTBUFFER[ #193 140203563500 
LASTSCAN!=INPS %140203563600 
@ | SCAN} %140203563700 
LF COUNT GTR 63 THEN X11 eoNen 0203563800 
IF SPECIALCHR="*" THEN GO CONTROL ELSE | %*140203564000 
@ IF COUNT LE@ O OR Wt®WORD LSS O THEN Go BADITS %140203564100 
WLESS 7 THEN & "CONTROLCARD® 40203564200 
é BEGIN %140203564300 
rd] CONTROL: STOPPERS =1+ REALCCONF)3 %140203564400 
KF _INSWITCHS2 THEN %140203564500 
BEGIN %140203564600 
@r IF NOT DONETOG THEN CLOSE CHAINT) %140203564700 
~SE OQUNETOGIt=FaALSE3 - %¥140203564800 
INSWITCHE=CSWITCHS %140203564900 
@ | ENDS %140203565000 
NSWITCHSSINSWITCH+103 %140203565100 
END ELSE %180203565200 
@ fF IF Wa? THEN 4 wsrape _ %140203565300 
e BEGIN ~ fg a et “%140203565400 
@ 
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. 3 A * 7pm s ksh 5 


: 


SCAN} 


4140203505500 


IF COUN] GTR 63 THEN STUPPERI=3 ELSE %140203505600 @ 
F_WORD=10 AND CONF THEN STOPPERt=2 ELSE %140203565700 
GO BADIT; me : %140203565800 D 
END ELSE | %$140203565900 1@ 
eB TE WATT UU ZO RSOOD00 3 
BEGIN %140203566100 . 
SCANS 4140203566200 ‘|@ 
I SPE CTALCHREME" THEN SCANS 40203566900 8 
IF COUNT LSS QO THEN %140203566400 ‘i 
BEGIN % 140203506500 :|@ 
Siete al DUAR TEST BURP ER OO IS IE PMO PO SS HORO0 i oe ee $ 
GU XITs 4140203566700 Mi 
END» %140203566800 |@ 
Se i ae IRN I pea See BN eee eee Soe Voll K* 0} ¢ Miyaias aa elke meateme aera ae 4 
END ELSE %140203567000 3 
IF W=9 AND CONF THEN & "SKIP" %140203567100 W@ 
eee eudas! eee (iT G; eek ee ee ae th OPO SGP 9G0 os 5 
STUPPER%=13 %140203567300 ‘6 
END ELSE %140203567406 @ 
EE a ag te ee teh eR O20 SI OT S00. en eee Ge it ee i ee is 
CHECKSTOPPER? %140203567600 19 
If NOT CONF THEN TESTESTESTINX:#03 % 140203567700 21 @ 
WRITE COUTFICDBLIOTERMTESTeTESTL DS = = 140203567800 ge Ree eee a 
IF STOPPER=3 THEN %140203567900 22 
BEGIN %140203568000 23 @ 
ee ee L ___%140203508100 _ Beste ora tectaa Nt asap oe is 24 
DONETOGisTRUE3 %140203568200 2 
IF CONF THEN GO TwO3s GO xITs % 14020 3568300 rl @ 
1 2 
IF STUPPERS2 THEN %#140203568500 le 
BEGIN %$140203568600 es 
et ast eS lt oR oe we an ae a a St ne SA OPUS OR) Oc Sere a as oe ie 
BEGIN #140203568800 a 
DONETUGISFALSES % 140203568900 1@ 
Pesan? NSIT OH ECSWITCRS UU 40203569000 39 
ENDS %140203569100 34 
TwOt UNLOCKCTESTARRAYL®))3 %140203569200 1 @ 
pa TESTARRAVETESTINX+ 1 JESREAL (NOT FALSE)S = %140203569300 38 
ENDS %140203569400 ” 
ENDS %140203569500 3 @ 
Xd , 2140203569600 | 3s 
STOPPERCHECKt= STOPPER NEQ@ Os %140203569700 40 
END STOPPERCHECK; %140203569800 a1 
FI III II III III III II III II iinet itor 03630000 42 
INTEGER STREAM PROCEDURE OCGTAL(NR)s VALUE NRa , 03640000 4 
BEGIN a: 03650000 : «4 @ 
STtelL@C NR OltsLGc UCTALs DSt=8 OCT; 03660000 45 
END3 03670000 ‘6 
BIO III III II III IGIGI ICID SIG IIIS OIG IGIOIIDIGIDISI In nilinie sit 3680000 «| @) 
STREAM PROCEDURE MOVECNeAeB)s VALUE No 03690000 oe si 
BEGIN LOCAL NN; 03700000 49 
SItaLOc NS DLPeLOC NNs SI#aS1+63 UIs eDI473 DSESCHRE 03710000 s1 @ 
SlesA3 O1t2B3 NNCOSts32 WOSs OS%=32 wOS)3 03720000 81 
DSI=N WDS3 03730000 5 
ENDS 03740000 «| @ 
FORGO ICICI III IGIOIIDIDIIIG ISIS OIG III IDG icinicicigst «03740100 54 
STREAM PROCEDURE REVERSEMQVE(Cs#A2B)# VALUE CrAsts 03740200 55 
BEGI ee 4 03740300 sq @ 
LOCAL ¢¢ 03740400 
@ 
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@ ® 
% 03740500 
@ SIlt2LOC C3 SLtsSl+55 Ol tacUc CCCe DI teU1+73 DSSSCHR 03740600 ®@ 
DIszxLoc CCs DOlsHzUI+73 DSISCHRS S[:sAs STizsIeqi tsB; 0374070 
' DI teDI"43 03740800 
@? CCCCACI2C3I2ZCOSIaCHRS eee? Sltast= 2)9)))3 03740900 
3 2 & ta cD Gel H 74 _ 
4 CCOStSCHRS OIts01=23 Sissi=293 03741100 
@ | END} 03741200 
6 ZRRRRERARABEAEEERASERAEERRER REPRE RARER RRR RARER RRP REE RRR AREA eae 2 SQo000 
DEFINE DECIMALCOECIMAL1 )aIF MAINT THEN MAINTADORC DECIMAL) 03760000 
@: ELSE DECMALCDECIMAL1) ts 03770000 
9 OMMONSERARORS #5 O57 BNOOO 
fo PI Sea RP Ce Eas PI ERP GEE I ET APPR ES 
er PROCEDURE IOREQUESTCFINAL? LUDESC»LUCATION)3 03800000 
12 t 
: MCP FURNISHES THE FLAG BIT ON THE 03800200 
@ _ LOCATION ENTRYS 03800300 
ne REAL FINAL» IOVESC»+LOCATIONS 03820000 
eo” COMMUNICATEC41)3 03830000 
: ee HW ie ie te ie ee ie ee ie fe eee Sek ee ee eek ete ae eee ee a ee ee OBB AGOONO 
2 REAL PROCEDURE OISKIOCCORE,SIZEsDISK)3 03850000 
er VALUE SIZEsDISKs ARRAY COREL «I; INTEGER SIZE*D1SK; 03860000 
b OMME _PERF@RMS A KIo OF Ag WOR NTO/FEROM 03860100 ee 
R2 ARRAY COREL*] AND DISK ADDRESS DISK. SIGN BIT 03860200 
@ » OF SIZE DETERMINES READ/WRITEC READ = SIZE < O 03860300 
2 z Ye RETURNS RESULT DESCRIPTURS 03860400 
‘ BEGIN 03870000 
@ Fi. REAL 1003 Lisa %*140703880000 
27) INTEGER LOCATION:. 03890000 
i CORE UOTPAOEGRAL CUTSE SST SI. %140703960000 
@ F: 10p8 03970000 
BO (CORE ADDR(CORELO)) Mo lZECB? 3at10I4((SIZE.0 381103429) 03980000, 
i DIV 30 + SL2ICLBP IRS eSIZEL Sas islEe. 03990000 
@: TINUL324385)3 04000000 
i _ LOCATION?=COREADDR(IOD)3 Q4010000 = 
i TOREQUESTC=1LOD8UC25240F BJ > TOD sLOCATIQNSUNITL12%42%6)8 04020000 
@» 1C2%47ty))3 04030000 
B6 WAITCLOCATIUN» [UMASK)3 04040000 = 
P OISKIOs2l0ps 04050000 
@ » END DISKIO3 04060000 
il ETE EEE eT EEE LEE ee EE COT OE TEE Ten rere errr rr eer 00 
40 PROCEDURE FINDOUTPUTCOS#WG)4VALUE OSsWwASINTEGER OS* WB; 04060200 
@ BEGIN 04060300 
04060400 oe 
‘ COMMENT CS=0 PRINTER 04060500 
@ =1 SPO. 04060550 
22 PRINTER BACKUP TaP 04060600 
=3 PRINTER BACKUP DISK 04060700 
@ =4 TWX 04060800 
3 04060900 
|. IF OS NEO QUTSWITCH THEN : 04061000 
i BEGIN. § 04061100 
4 IF FILEORE: NEO AND NOT. TWXOUT THEN 04961200 
BEGIN CLOSECLINE)3 FILEOPENEDt=FALSESENDS 04061300 
@ : IF NOTCOS=1 OR US*4) THEN 04061400 
: INE s TYPESS]F US=0 THEN ELSE 04061500 
: pee ee od IF OSF2 TREN: 6 ELSE ane - 04061600 
OF END}. ee : 04061700 
e NY i COMP YE ING. rH Ny Bee H“O¢ ROO 
& 
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a . oS 33 or ~ 


a 


TWXOUTS=(QUTSNITCHiS03561 UR OS=4)3 04061900 

WRUFFL=IF Wa=0 THEN IF Urea THEN 9 ELSE 15 ELSE 04062000 
“Nt | it ; JQz ee eae 

‘END OF FINOOUTPUT3 oss . 04062200 


LEP eeRRHONTE RENEE OREN TARES HORE HERE T ENN EEE dw ROWE wens thea dh eeeee end @0?0000 


PGE DT A a re OBO Ge orn he 


BEGIN 04090000 
oes ACO36]5 04100000 
R Ms M7i YoRs a © Fe 0 OO © 
acaL T13 04120000 
LABEL OWTS 04130000 
FORMAT DTCAws"DAY Ns2(ler"/") olds s “NslOo"§"pA2sXioAl»  O4140000 © 
Me") >» 04150000 
OTIC KxX20-"BURROUGHS 8*5700 SIMPL CUMPILER "> 04160000 
se ar MY gS pasts ie ees i ee te I POON Oa SS ee 
XSeAae@DAYe “seCl2e"/")sl2a%s, % 04171000 
eL2e ite AQeXtoAleM, "25 04180000 
Nes ahs LIST LSTCACR Ie C42th}sALRILOt3IO)oMeDoYo12xREAL(Qss —s—s 04490000), 
H MOD 1270)+Q-,Q33MIN MOD 1O*+(CMIN DIV 10)x6d% 04200000 
IF H GEG 12 THEN “P" Preah WAN )3 04210000 
J H "™SUN3%9 M UE DU, "Wh . O4ez0000 — 
*THURSS®, "FAL Ss "SATURS"3 , 04230000 
IF COMPILING THEN ; 04231000 
08232000 
WRITE(LFILELDBLJ)3 , 04232100 
WRITECLFILECDBLI 23 04232200 
a cl aN a ik a ee lg SO Ot ie ty es os 
YiaTIMecoy3 - : 04240000 
TASBTIMECL)3 : 04250000 
Dizy 03 HIXLOO+ Ve £ 362% 6]x10+ 2%6)3 04260000 oe 
YesY,C18s6)x1O+Y L246) ;5 04270000 
FOR Ht=31sIF Y MOOD 4=*0 TREN 29 ELSE 2B» 04280000 
: Bir 30+ 31% 30 31% 34% 300 34930 Db 04290000 
IF 0 LE@ H THEN GO OWT ELSE 04300000 
BEGIN O8@0"H; MtaM+1s ENDZ 04310000 
_____ OWT 04320000 2 
~_H¥ST1 DIV 2160008 MIN@=(Ti DIV 3600) MUp 603. 04330000 
IF M LSS 2 THEN 04340000 
__ BEGIN Q8=M4113 Pasy714 END ELSE 04350000 
BEGIN Q%sMeiz; PisYs END? 04360000 
MtaMet}3 : 04370000 
MERC CQK2672IDIV 104+D04P+P, [36810141 MOD 73 04380000  —s— 
IF COMPILING THEN WRITECLEILECDBLISOTIeL ST) ELSE 043490000 
WRITECOUTFICUOBLIsO0T»LST)5 04400000 
FILEQPENEDt=TRUES 04411000 a 
: END} oe 04420000 
FA te OI I IIOII IO OIG IOI II GIGI OI ti Iie tote e8 04 30000 
_ PROCEDURE DKBUSINESS(BUFF)4 VALUE BUFFS REAL BUFF: 04440000 
COMMENT DOES MANY STRANGE AND WONDEROQUS THINGS. 04440100 
04440200 
: SF151023 MCBUFF LCFJJs= 04440300 
PRNTABLEC BUFF SCFF II 04440400 
IF. BUFF .£15:15120 MEBUFF. ECE I tS We 04440500 
eke ; : ie MIX] . 04440600 
IF BUFF, CFF J=3"77777" MEBUFF. UCR ]J33 04440700 
MOD31US (MCP) 04440800 
OTHERWISE CALLS MCP ROUTINE BY 04440900 gee: ee 
ee cin 0s se SAME NAME AND PASSES : - 04441000 
: BUFF. bd PARAMETER? 04441100 
xy ‘ a. ‘ oi Serene Elie 3 04441200 
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e e 
COMMUNICATE C40); 04450000 
@ Fo Ne ee Re i i eI III IO IOI II IOI IOI IOC to kit 6404460000 @ 
PR DUR I KUP - at : ALU mF pKEYS LE A 2h ; 4 @) () ante! - 
} COMMUNICATE(40)5 04460200 
@ 2 FR ii III iT III IOIG IRI IDI I IUIGIOIIOIOUIGE iii oti inioicn tonite ion te 04460300 
3 BOOLEA REAM PRO R WOTEST ASVALUE Ne ag 4150104460400 
¢ BEGIN #150104460450 
@ 5 ST8sLOC AsSKIP N SBSIF SEK THEN TALLYS=1S 7TWUTESTI=TALLYS %150104460500 
6 ND 415 0 60550 ae 
4 oN eR dt tk We EEE EAE REE EEE REE KEE HHO 460600 
é a STREAM PROCEDURE TWORESET(CN#AIS VALUE NZ 04460700 
8 BEGIN 0 sAZSK N DBs Do zR pENDS OOO eee 
po Fa II IOI III II III IO IOI II II IIIS IIIS IOI GI IGIOII I Ginnie 404460900 
eo" STREAM PROCEDURE TWOSETR(NSA)S VALUE NS 04461000 
be ce BEGIN DISFASSKIP N DBSDSSESETSZENDS | i AS ed oe Ne Oe Te aa tO OME OO. ota ons a 
n FR IIIS IG IGG III IOI II ISI IOI IG IOI III IOI IIOR I ini oninteine a 604461200 
@* DEFINE 04461300 
ae —_ TWOSETCTWOSETA» TWOSET295 0 OOO 
6 TWOSETRCLNTIERC47™*(TWUSETI2) + TWOSET2) os 04461500 
r ey TWOTCTWOTLsTWOT2)= 04461600 
ie ________TWOTESTCENTIERC47*(TWO1Z)IeTWOT2)#, TOO 
9 RESETCRESET1»RESET2)3 04461800 
@” TWORESETCENTIERCG7™(RESETI1)) sRESET2) #3 04461900 
1 Bt ki oi ik to a tO a ka ok ei i tee ick tea 04462000 
P INTEGER STREAM PROCEDURE INUNITCRUFF D3 04470000 
@ » BEGIN 04480000 
ib ___._._LABEL Bs bat as cos he te EP an ee OS 0 Oe aie eg eet 
Re SIssBUFFs 04500000 
Or Bi IF SCs" " THEN BEGIN SIteSI+13 GO Bs END ELSE 04510000 
id —_IF SCe"S" THEN TALLY3S) FLSE BOO 
rs IF SCs"c™ THEN TALLY$*2 ELSE 04530000 
OF TALL¥ 2533 04540000 
if Ni t= 1A ; QM SSOOO On ee meet 
END} 04560000 
 ) Fa Tt I I TORII III III IOI RG SO iG tok ioion bik take e004 570000 
REAM PROCEDUR BO UM i 3. O458O0000 
BEGIN 04590000 
@ LABEL XIT3 04600000 
ks ON a ce a es et OU UO Ny eta 
OSt2i4 LIT "INPUT IS FROM "3 04650000 
@» SISsINUNITS 04660000 
? 2CSissSi+is’ 7C UF ScH"e" THEN 04670000 aoe 
BEGIN 04680000 
@ OStsCHR3 . 04690000 
JUMP QUT 2 TU XIT3 04700000 ein es 
END ELSE OStsCHR))3. 04710000 
@ | XIT: END? 04720000 
Bt fe tee eo i ken ok II no ie a ik Ob ok atk aia kee 047 30000 pata he the ble ee ee 
6 PROCEDURE TSSWHENCSECONODS)3 VALUE SECONDSs INTEGER SECONDS3 04740000 
@ BEGIN 04750000 
4 ‘“COMMEA dl N* FOE } SE « NOES NUT KEQUIRE THAT 04760000 Be SS, 
: PROGRAM REMAIN IN CORE WHILE WAITING3 04770000 
@r NT12=TIMEC1)+60xSECONDSS | 04780000 
HILE S$ R A ’ 4 04790000 ae 
é BEGIN 04800000 
@: SECONDS!SSECONDS@13 04810000 
j WHENC 13 04820000 
: ENDI | | : , | 04830000 
OF ENDS oe | ae : 04840000 
a p At 8 ik a ae Ook Fk ono OOo inition toh kaw a at 4404850000 | 
e 
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y a 5 2 SS 3 os 


CES 


DEFINE 04860000 


WHENNCWHENA 4 )= 04870000 e 
—O4880000 
IF TSS THEN TSSWHENCWHENNT) ELSE WHENCWHENNI 3 04890000 : 
END#} | 04900000 1@ 
B05 III IUCR GIUIIIIG uD UDO tod ions tia kicgniiiociietatai# 06920000 3 
PROCEDURE MOVEANCWRITECKEYsSZsDUBLE*LTILITY* BUFFER); 04930000 ‘ 
VALUE KEYsS2sU0BLEs»BUFFERS 04940000 |@ 
INTEGER SZ»sBUFFERS BOOLEAN KEY*DUBLES 04950000 ar 6 
FILE UTILITYS 04960000 ‘ 
COMMENT WRITES SZ WORDS TO. FILE UTILITY BEGINNING AT 04960100 . |@ 
—____________CORE ADDRESS BUFFER. OUTPUT WILL BE DOUBLE = 4900200 oe 9 
SPACKD IF OUBLE 1S TRUE, IF KEY» DATA WILL 04960300 ii 
BE NRITTEN WOUFF MORDS PER 1/0 = UTHERNISE 04960400 0 


3 2 ASSUM 2 pee te POOR OO ei 


ose 64> EDITING IS PERFORMED. OTHERWISE? 04960600 . 
THE DATA IS MERELY MOVED AND WRITTEN 04960700 @ 
_____ BEGIN 04970000 2 . 
INTEGER Io usKobsX3 04980000 19 
LABEL EOLs 04990000 \@ 
FORMAT WRONCCI4)» 05000000 ie 
DUPFCXBe*C2C BCS) Mat 8) 35 05010000 ‘s 
SDUPFOX8 #(BCMe™ a". 1) )3 05020000 24 @ 
3 (£23 0 DO Ore 6 scutes oe meee oe ee 24 
BOOLEAN B»sDUPS 05030000 a 
BOOLEAN STREAM PROCEDURE CUMPARRONs As BIS VALUE No ABs %150105030100 23@ 
Bae See eee 130 Seer esate eee De Bocas Rae pe 24 
SIisasOlt2B3 %150105030300 2 
NCIF 8 SC NEQ@ De THEN BEGIN TALLY##13JUMP DUTSEND); %150105030400 cs @ 
= 
END3 %#150105030600 i 
x 05040000 1 @ 


i=Kis 05 =. 7 


JISIF KEY THEN: %140605060000 at 
($2 DIV ir loi DeeREE COOTIAS 05070000 2 @ 
_ (3+2xABS(REALCOCTLI@1) )xXREALCTHXOUT)) 05080000 ———— 3 
*REALCSZ MOD L=0)) ELSE 05090000 
((SZ+K=4) DIV Ko"13 05100000 24 @ 
Bt=SZ2 MOU L=03 er 65 10: a ee 39 
BUFFER! SBUFFER=L} | 05120000 | 7 
FOR It20 STEP 1 UNTIL J 00. | 05130000 | 4@ 
B E G I N F i Q 5140000 ssw Sa ctheiea: : is 
CLEAR(QUTBUFFER*K)3 05150000 
IF KEY THEN 140605160000 |@ 
BEGIN 05170000, ———i—‘“‘“‘“‘iéi! 0 
IF gl leatla ace ese a a ta oe %150105180000 ‘ 4 
1=0 OR. | fees 05185000 ice 4®@ 
J THEN. Ft Ro ee ae 05190000 ue ae et As 
BEGIN 05200000 
DUP!=FALSES 05210000 hd 
wRITECOUTBUFFERL*)] »WRDNUsIxL41)3 05220000 , 
IF 8Ck THEN FURRY WOVE ( G2 BUPEE Re JONREU FERDS. 05220100 | 3 | 49 
‘EDI TROP IsJ AND NOT B THEN 05230000 Moe, | @ 
-ENTIERCSZ MOD L) ELSE be 05240000: ue ede da 51 
F BCL THEN COREADDR(JUNKBUFFER) ELSE%150105250000 ‘ 
BUFFER» %150105250100 s1@ 
OUTBUFFERC11sBCL»OC TL» JUNKBUFFERS 05260000 , 
“TRANSLBEESUF FERS TROUT IE’ ee "05270000 ni a 
ENO ELSE | te 05280000 1@ 
‘OUP THEN GO- ee 05290000 | th nee : 
@® @ 


ono n~ @ OO &F WH = 
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a 3 3 


5 Oo Sp US SE SS 


oS Se 


ry +, 
oa 


mE: 


@ 
EEGIN 05300000 
IF OCTL THEN 05310000 
eS RITE COUTBUPF ERE *# J DUPPoL i) FUSE 66605320000 00 
WRITECOUTBUFFERL*)]*SOUPFeLL Ds 05330000 
DUPtsTRUES 05340000 
Ds 05350000 
END ELSE 05360000 
FUNNYMUVECIF IS AND NOT B THEN ENTIERCSZ MOD K) 05370000 
ELSE KO BUFFERS SBUPFERY KO OUTBUPFERDS 05380000 
IF DOBLE THEN 05390000 
WRITECUTILITYCOBLIJ sK» OQUTBUFFERC #)) ELSE 05400000 
—______WRITECUTILITYsKeGUTBUFFERC#J)S OOOO 
EOL: END} 05420000 
END; 05430000 
sae BE Te OMT SUM CO MRE a a ee Sees? a LA | ee en ee me oe 
Ze twae a toe ii i RIG Ri ial a kik ik eit ik tek eee ink 05440000 
PROCEDURE TRANSFEROUTCSIZE*BLENGTHsF eA) VALUE SIZE* BLENGTH3 05450000 
_____.____ENTEGER SIZE/BLENGTHS FIbi FS ARRAY AL*}3 5 40000 SSA GOS oh ee 
COMMENT WRITES SJZE WORDS INTU FILE F FRUM ARRAY A, 05460100 
BLENGTH SPECIFIES THE LOGICAL RECURD SIZE OF 05460200 
Dios ST eee eh 2 SEND ee eects SE seer eee ree a rT eae ee OAT Oc 10 ¢ ee eam na eae ee EE 
BEGIN 05470000 
INTEGER Ie Js BOOLEAN 84 05480000 
- a a a Oa lg 
WRITECFo MING SIZE sBLENGTH) »ALeI])5 05520000 
IF SIZE GTR BLENGTH THEN 05520100 
BG ganz 
B&=SIZE MOO BLENGTH=0; *#140405520300 
wee ere ce DIV BLENGTH)@=13 %#140405520400 
OR i STEP GG UNTIE J pO ||US RO OSS 500090 
BEGIN %140405540000 
CLEARCFCO)*BLENGTH)3 4140405550000 
MO =y A NO’ 8 THEN ENTIERCS MODZ140405560000 2002 
BLENGTH) ELSE BLENGTHs ACIXBLENGTH]s %140405570000 
Fc0))3 %140405580000 
ce a sc TD Co a OOS SOOO. 2. eee 
ENDS %140405600000 
END3 %140405601000 
ENO} 05610000 Sess 2 
$PQP OMIT 05610001 
Bie ie Ib i sk i i ka Te aon tok ikea kate 5620000 
PROCEDURE TRANSFERINCSIZE*BLENGTHsFeA)3 VALUE SIZEs+BLENGTHs 05630000 
INTEGER SIZEsBLENGTHs FILE Fs ARRAY AL*]3 05640000 
COMMENT READ SJZE wuRDS FROM FILE F (CWITh LOGICAL 05640100 
RECORD ZEB (GTH) INTO ARRAY Ad 05640200 
BEGIN ae i 05650000 
BOOLEAN Bs INTEGER IeJs - : . 05660000 
% 05670000 = 
READCF »sMINC SIZE »BLENGTH) sAC¥))5 05680000 
IF SIZE GTR BLENGTH THEN 05680100 
BEGIN 05690000 - 
BeeSIZE MOD BLENGTH=03 057020000 
JtsCCSIZE+BLENGTH=1)0LV BLENGTH) #13 eg, 05710000 
FOR Its1 STEP 1. UNTIL vw DO 05720000 
BEGIN 05730000 
MOVECIF Iu AND NOT B TREN ENTIERCSIZE 05750000 
MOD BLENGTA) ELSE BLENGTHs 05760000 2 
ECOM AL THBEENG THI} 05770000 
RENONE 24. : ‘ 140405771000 
END? . eee fi Hci Os a hy td 05780000 
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G . 5 we 7S Th kk 53 = 


Cees 


END3 05790000 
05800000 
Reaae spree aus ee BLOCK CODE STARTS HEREMSHHS HHO HER EHH Reon Hen eee eee eee 205810000 
] 05820000 
EMPTY &833"77777%;3 %150105820300 
ie rcs, _F *) -R)= ; 30000... 
MIXS3MIX,(926];3 05840000 
Pe ese tee eee 05840100 
bad NAZREA N Al. fe A 
IF COMMONSO0 THEN 05850000 
IF. JUNK,C15#9] LSS 32 THEN COMMON! =33 05880000 


WHILE COMMON. GTR OR COMMO S80 DG 8900000 


OL T1670) | ater eae eae 


BEGIN 05910000 
WRITECSPOs INVCMN)3 05920000 

Fee WR | ea eR ae ea EI NE TEN Lf. F-15151 0 eee ae 
READ(SPO%10* INPUTBUFFER(C«))3 05940000 
COMMON S=INUNITCINPUTBUFFER)S 05950000 
ae _END3_ 05960000 
IF COMMON NEQ 2 THEN CSWITCH?sINSwITCH* =COMMON 05970000 
ELSE 059460000 


his2$ ; 05990000 2 


FILL JUNKRUFFER (95 WITH 06000000 
Ore "> 06010000 
spit soss SPO aN siti i RO POON. 
"CARD RE"s"ADERe "S 06030000 
IF JUNKBUFFERLOJt$=sTIMEC@=1) NEQ@ O AND CUMMUN NEQ@ 1 THEN 06040000 
fete 2203 ———-_06040j00. . 
BOJMESS(OUTBUFFERs JUNKBUFFERL2XCOMMON) D3 06050000 
WRITE CSPOs1OsUUTBUFFERC#I )3 06060000 
_IF_ 
BEGIN 06061100 
CLOSECCFILE):3 06061200 
FILE seTYPE:=19 
END3 06061400 
COMMON! 63 06070000 
ENDADDRI=BEGINADDRis=13 06080000 _—__st 
RETURN? 06090000 
BEGIN 06100000 


ReteHxe#eeHHSCAN BLOCK DECLARATIONS BEGIN HERE ge eesecawadaerdanane eeeeageeeso6lloogg 


REAL PMFIOsPFID; 4140206120000 
DEFINE 06130000 
GOPFRROR(GOPERROR1 )= 06140000 
BEGIN: 06150000 
ERROR&=GOPERRORLS 06160000 

GO PERROR3 06170000 

ENO#>» 06180000 
FIRSTEST#9#» *2HEADER INDEX. OF FIRST CONF TEST 06190000 
WROCWRO1 » WRO2Z) SWHATWORD( TESTBUFFEReWRD1sWRD2) 06200000 
DBUFFSCOREADDRC(SEGDICT )#3 %150106220000 


BOW ee ie ee ee RO TOI TOO do kok i tk ike tee ake 06940000 


QORMAT 06350000 
ENTERDATAC"ENTER MAINT CCe")>» 06360000 
EQFFC™@E0F NO LABEL (MAINTI¢%)3 06389000 


BOON TOI ISI IOUT ORI Work tit itor tent ew tra ginee 06390000 
FILE 06400000 


_ TESTAPE 5(1510)» 06400100 

TAPE TAPE (29102150)» MASTER SYMBOLIC FILE 06400200 = 
PITCH OISK SERTALC22100350)#SPATCH FILE ON OTSK 06400300 
CODEFILE DESK eee, Uso) G2e30,SAVE 10) 06400400 

NEW OISK SERTAL £209600) (2r100150*SAVE 102). 96400500 


NO aes Sn a ec a 


06061300 0 
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ZUSED 7.0 CONTROL PRINTING OF CARDS ON WHICH ERRORS 


OTe O3G00 


® 
Do te te tee tea gee iO IOI Reo a OR ck toi tk ioe 10006400600 
rd] SWITCH FILE PATCHFILE? =MAINT»PICH; 06400700 
te foe te We eae ae oe eae eae ee ee ge eA ie ii iii i AO ee ONO ioe ike gn tek ie ei tk eee 6410000 = 
! INTEGER 06420000 
@ | PRN» PHYSICAL REEL NUMBER OF TAPEsee. 06420100 
P : : ‘ 
4 CRO» 06430000 
@ 7 4USED TO COUNT THE INPUT CaRDS 06430100 
8 3 06460000 
f ZCURRENT SEGMENT NUMBER 06460100 
eo): Ap 06470000 
9 , RREAN * AD ame aaa 
i PP » XDURING COMPILATION PP IS AS FOLLGWS: 06471000 
r by % CF INDEX INTO PDESC WHERE NEXT PATTERN 06471100 
2 x RIPTIQ 3 T i oF OOo nt siete tout oe. oe 
% FFsLOCATION IN CODEFILE WHERE POESC(¥]j 06471300 
@ % IS TO BE PLACED WHEN FULL 06471400 
ie Oe Re ee Ha get he eh Ae 
6 SDURING INTERPRETATION PP CUNTAINS THE RECORD 06471600 
eo” ZNUMBER OF THE RECORU CURRENTLY IN PDESCL*] 06471700 
he We = 
7 ZUSEOD.TO STORE LAST RESULT OF WHATWORD ROUTINE 06480100 
@* CCCOUNTs 06481000 
: SNUMBER OF CONTROL CARDS (COMPILE OR EXECUTE ONLY) 064 ie irene neers 
i LEVELCOUNT»s 06500000 
@ ZINCREASES BY ONE EACH TIME THAT A OG LOOP OR 06500100 
Gs ___%SUBROUTINE IS ENTERED = DECREASES dy ONE WHEN 06900200 ahs fies yh 2 OM a 
p RTHEY ARE EXITED WHILE COMPILING. %140406500300 
@ fs XOURING INTERPRETING, LEVEL COUNT HAS THE pals pac. 06500400 
P &6 ALLED SREG WHEN WORKING WITH The § 06500500 _—_— 
Pe NEXTBUFF >» 06510000 
@ -: ZNUMBER OF BUFFERS DECLARED 06510100 
B TRANS 06520000 ean tons Ric Saban whens 
ZTRANSACTION COUNT FGR TAPE UNIT UNDER TEST 06520100 
& NEWSWITCHS %*140206530000 
%F1 WH FIL -WTAPE IS A TAPE FILE, ©O UTHERWIS 06530100 ae ee 
‘ Fete eve see eA I IR III IGRI I IOI int tine 06561000 
e LIST SNACS,A)3 06561100 
% ok ek Tt dO i a III Ra Ok OT RO tk tik kee 6570000 
BOOLEAN 06580000 
@ » TAPEQUATED» 06601000 
$ KA “eFILE TAPEa" CARO WAS INCLUDED IN CONTROL DECK 06601100 
LIBONLY>» 06610000 
@ ®COMPILING FOR SYNTAX ONLY 06610100 
SOP » 06620000 
ZAN QUTPUT PART HAS BEEN SEEN. DURING THIS RUN 06620400 
@ TAPETEST» 06630000 
TRUE WHIL RUNNING TAPE CONE IDENCE TESTS 06630100 
° DISKTEST>» 06640000 
@ ZTRUE WHILE RUNNING DISK CUNFIDENCE TESTS 06640100 
ae NTOG» 06660000 ee 
: ZTRUE WHEN. "NEW" OPTION 1S SET 06660100 
e| HTO¢e, | 06670000 
TR h A COMPILER HEADING HAS BEEN PR ED 06670100 
p ERRTOG»s 064690000 
e : %AN ERROR HAS NCCURED ON TRIS RUN 06690100 
P INERROR» = x 06710000 
B %A SYNTAX ERROR HAS QGCURED ON THE CURRENT CARD 06710100 
e 06710200 
e 


DUNESCAN>» 06730000 
@TRLE WHEN INTERROGATING CARD FILE FOR EUF 06730100 e 
. AN FM OOO i chest ah oye ee Ss 
ZTRUE WHEN SCANNING A COMMENT IN QUOTES 06740100 1 
EOFTOGs 06750000 1@ 
co UNEXPECTED FOF ON CARD FILE | UU 750300. a 
PTOG» 06770000 : 
STHE "TAPE" OR "DISK" UPTION IS SET (CUMPILING) 06770100 ‘|@ 
Se ee ee een 12 2.1, ee 6 
“WTHE "DEBUGN" OPTION IS SET CCOMPILING) 06771100 ? 
BeEENES 06780000 /@ 
STRUE AFTER FIRST CA IMAGE HAS BEEN PASSED TU __ 06780100 = i 
ZSIMPL COMPILER 06780200 ai 
MOD3I0S»s 06740000 10 
en Oe POD coe AMODEL TUT 1/0 CONTROLS 96290100 See. 2 
“MAKETAPEs 06800000 3 
ZOURING COMPILATION» MAKETAPE IS TRUE IF A WRITE 06800100 @ 
ae __. ROR ERASE STATEMENT HAS BEEN ENCOUNTERED. DURING 06860200 18 
SEXECUTIUNs MAKETAPE SIGNIFIES THAT A SCRATCH TAPE 06800300 16 
%IS REGUIRED BY THE PROGKAM 06800400 |@ 
UTOG» 40 801000 ‘8 
STRUE IF UNIT CHANGEO IN GETHEUNIT | %140506801100 ‘9 
OKBTOGs | %140706802000 4 @ 
&TRUE IF BEGINADDR 1S A DKB ADORESS 190706802100 24 
REV} 06810000 2 
KDURING CONTROL CARO SCANNING» REV INDICATES THAT 06810100 24 @ 
pete ies ___%THE <OUTPUT PART> APPEARED FIRKSTe 810200 ae 24 
LOWE EE EEE EEE E ARERR RENEE ERNE A AMER HN EHREREAERE RARE REAR HERE EHHO6B20000 
LABEL 06830000 
PERRORs 06840000  ——s——— 
CONTROL» 06850000 
CONFIDENCE» 06860000 
RUNTAPETESTS» _. 06870000 
MCCLCOMPILER» 06880000 
FINISHOFF» © 06890000 
BG IN a eects a ee OOP OO OU rete foe et oe 
Rie 06920000 
READIT» 06930000 
RETURN13 06940000 = — 36 
RT A ER REET aE EEE RK EEE RH kee HHH O6I5O000 ; 37 
ARRAY 06960000 ; a @ 
CCSf08199)» 06961000 39 
06961005 ' 
ZCONTAINS A COPY OF THE FIRST MAINT CC (%**=@CARDS 06961100 «/@ 
ZONLY) AND THE LAST 19 CARDS 06961200, 42 
06961300 4 
COMPAREBUFF[0160)> : 06970000 «@ 
06970050 : 45 
ZUSED FOR RESERVED WURD TABLES 06970100 : 
06970200 0) 
HEADERLO329)3 06980000 | a8 
: . 06980050 4g 
COMMENT , | Sia 96980400 7 1 @ 
a Deke CONTA NS A tle oF T EF RST UR eCORD IN HE : 06980 00 51 
SIMPL CODE FILE. ITS FORMAT [S AS SES 06980300 5 
a 06980400 «| @ 
HEADERCO)] = RECORD NUMBER OF BUFFER TABLE IN CODE pace 906980500 e 
HEADEREL)” = NUMBER. OF TAPE UNITS. REQUIRED: BY SIMPL. 06980600 = 55 
, , PROGRAM ; - 06980700 7 i @ 
“HE ADE REE 2] = NUMB “OF PATTER S DECLARED IN PROGRAM _ ee 06980800 


@ 
HEADERC3] = NUMBER OF CODE SEGMENTS IN FROGRAM 06980900 
@ HEADEREC 4) = 06981000 
Cc = 0 3 Wi RA (QOUTP F - O de USED 0698 Oo eee One Lee eee 
1 CSF] = IF 0 USE STANDARD CARRIAGE WIDTH 06981200 
@: = CARRIAGE WIDTH IN WORDS OTHERWISE 06981300 
3 = : DAY 400 
‘ [4631] 3 1» BCL TRANSLATION ON DISPLAY 06981500 
eo; ee an Bor eet 06981600 
6 = ADE 
7 2 0» 6=BIT CHARACTER DISPLAY 06981800 
@ | HEADERE6) = NUMBER OF BUFFERS DECLARED 06981900 
: ees WHE ADE ROD ae oe ieee ae 
no CCF) = 1» SCRATCH TAPE REQUIRED CNORMAL PROGRAMS ONLY) 06982100 
or Oe LABELED TAPE REQUIRED 06982200 
n2 =! _ CFF) = Or FDOC ROWS AND 511 WORDS 06982300 — 
y —@ LENGTH OF EOOC ROWS IF NON@ZERO 06982400 
@ HEADER(8) * O» REGULAR PRUGRAM : 06982500 
ns eee s NUMBER OF TESTS OTHERKIS 069 ee Aor 
he HEADERC 20) = Gs TEST DIRECTORY IS LOCATED IN HEADERL9) 06982700 
e” THRU HEADERL19] 06982800 
8 eee = NUMBER OF TESTS OTHERWISE 06982900 
af HEADER(C21)] = SIMPL STACK SIZE 06983000 
@ » HEADERCL222S0ELAY TIME BETWEEN I/0-S 06983005 
} _.._ _HEADERE28) = MFIOD OF TEST TAPE UU BOO 
p2 HEADERC 29) = FID OF TEST TAPE 06983200 
re 06983205 
‘ __A SIMPL PROGRAM FILE HAS THE FULLOWING FORMAT 06983300 = 
SR ' 06983400 
5@ Ps HEADER RECORD 06983500 
sb PATTERN DESCRIPTION RECORDS 06983600 
8 él SIMPL CODE 06983700 
£@ BUFFER TABLE 06983800 
Spa BUFFER NAME TABLE 06983900 
; PATTERN NAME TABLE : 06984000 
@ | PATTERN TABLE | ibaa 
‘ SEGMENT DICTIONARY 2140406984200 
< UNIT TABLE (REGULAR PROGRAMS GNLY) %140406984300 
_ Oe TEST DICTIONARY CCONF PRUGHAMS ONLY) 06984400 
BS 06984500 ; 
B 3 = 06984600 
e@ $e RO ta tO OG IR IO OG ODI Ik iii nie 06990000 
SAVE ARRAY UNITS£O%4,0%17)], POESCL0129)3 07000000 
COMMENT 07000100 
@ FOR UNITS FCRMAT» SEE FILLUNITS BELOW 07000200 
PDE w O1OS 6 PATTERN DESCRIE N RECORD 07000300 en 
; 3 a a : 07000400 
@ | | | ge ae : 07000500 
4 GARR RRARAARRAARRRARERELA ER ELAEP RR ELARRAREMRRR ERATE RARER REET 24407010006 
PROCEDURE FILLRESERVEO(COMPAREBUFF)S ARRAY COMPAREBUFFL¥)3 07020000 
@ BEGIN 07021000 
: NLOCK OMPAREB * 3 07.9 000 ee a 
FILL COMPAREBUFFL «}- WITH ae 07025000 
@ | NCONF IDEN" 31 a | ae 07030000 
"SK ene vs po Be, ar 07035000 
"BEGIN  "pX3 07040000 
@; "END ",%4 07045000 
5 "Ss 2p E%,% Q 0000 
B5| “OUTPUT ".€6 000050. = Poles 07055000 
@ | WON i GRR TS ek a te ae 07060000 
@ 


e a nn eae 
e "TESTS  "p&9 3 me 
ene Se are 07070000 
, ee : . 07075000 r 
e k "TIMES " F % 12 ri 
ie bee 07085000 
: = = STOR ogg 07090000 ] 
a SrerART nee Sep OP OGSOO 0. ei Fs Fp 4 
i "NOPAGE ,%16 07100000 
: RESULT egg? be eas ck |e 
e le wh Pp %,%18 ea aie aaa woe OPRALOOOO 6 
ik “SPQ "219 07115000 7 
a enue er _"PBD e520 Or ee0080 |@ 
"PBT "821 25000 Wn ... 
a “TWX "422 07130000 ; 
h2 OK "4 %23 07135000 1@ 
e “OCT ,%24 Pe ee a ee a Vine Oe ye ep ee OO : 
ance uae 07145000 : 
; cs ee in el eee 07150000 a) 
ot TINT ts k2e eereeeee 21 )-1 1) eee | 
K mE "428 07160000 
ee ee eee 07165000 |e 
i tt are se MOTIOOO. 5.0.85 gic i 
: Gane. fetes 07175000 eater ace | F 
; cnt HEE de 07180000 1@ 
e: "NOISE ",%33 pes os OFS O00 sn Se ips tl 3 
: Se ee %140307200000 ~ ; 
se Ehaeaean tl eer %150107210000 21 @ 
e LE "RO ,% 36 -——- BLSULO7220000.... Sea Fe aM a Aen A ‘ 24 
Ji eNEEaTe. aaNGt %150107230000 es == 2 
gs f eS ee oe | @ 
y "SK "wy 42 20000 SS ee oe 
:@; ap a 07330000 : 
an re nr 5137; ahs 
2@ bl "SCHED  ",%5 | a i 
& "OUT "5%6 07360000 3 
© a] A L L ” , % 8 07380000 Ge Meet te letee 2 aero Me oa ie 
"TSTS "489 ieee 
: — : A 07400000 1@ 
Pe ay Sern QPOOG00! tt <ncua malate : 
ane cae 07420000 | eo ee 7 
‘ 7 07430000 1@ 
. ae a SSOP MOG OG Fp neil sayy ; 
"AB "215 07450000 
) “wNOPAGE "16 pur 00 |e 
@ ; WRSLT "3447 : Q 470 O08 a oe ee i 
LOCK¢COMPAREBUFFL#1)3 eae te “ 
6 SEE ERAT EOS Tr 97482000 oh 
@ SRaCEDURE ranaassasunsvasuseeaveansansaneaivitaaad snes T¥eRUREVERY#TOFSOOOUG i bs 
: ace 07510000 — 1@ 
FILL UNITSE1e* , 7220000 ____. M 
@ periooodd.: 07530000 . : 
T300001, ee Le ee Be ee : Je 
pa 0CT500002> 07330000 ae : 
@| Becreooos. | 07560000 eee ng rt ee a eS i 
OCT1100004, O73 79000 1@ 
OF: OCT1300005» O7se000c : 
a 0671500806. Sat ccne _ . 
sy diy nce | Seer. 07600000 i 
. SLOVO 07630000 | . @ 
, 5 
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Be § 8s ee sy 
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an 


(S38 oF SS i 
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CCT2100010» 07620000 
OcT2300U011» 07630000 @ 
25000 ’ 07640000 
OcTe700013s 07650000 
OCT3I000L4» 07660000 
a GET SSO OO To i a OPE TOOOD 
OcT3500016» 07680000 
OcT3700017>» 07690000 
6 d cee Ps 
OcT14000233 07710000 
COMMENT ~ 07710100 
N al $1] ¢@ NDICATES THAT LOGICAL O7710200 
UNIT U IS UNDER CONTROL 07710300 
OF ONLINE/MAINT; 07710400 
eee? einer ie A E80 28 9 ca OWE.) 60 | 0] 06 RRR ae 
WMTA "» 07730000 
“MTB "9 07740000 
bat Sates Sy SM MTC NOG 
“MTD " 07760000 
"MTE a 07770000 
eee Eee eee es va a OPEB O ON ee 
"MTH Wy 07790000 
| MMTJ Mer) 07800000 
a 5a i ie ee See ee ee SB POO ete ele ets eek oe 
"MTL ", 07820000 
"MTM "» 07830000 
te STN ae a ee 7 OOOO) = 
"MTP ar) 07850000 
"MTR os 07860000 
"MTS "s 07870000 ee ee 
MTT "» 07880000 
MDKA 5 07890000 
"OK "5 POOOOO es . 
END; 07910000 
Bee TEE OH RT RIOR OH OW ESR at tk eet kitten he O90 30000 
fn eee OEY NE Oe ee SRDS erent ok BERET 
WORDSWROCCOMPARERUFF*®54) MUD 37 + 143 2150109060000 
% 09070000 
oe te UII III IOI III GIGIDII IOI DIOGO II UCI UII IOIIO I IOI  iiioiln ke inicio 609360000 ee, 
PROCEDURE SCANS FORWARD} , 09371000 
BOW de ik ite ie ik ak do i aio ka Ii eto 8 aio kkk kit ee 093972000 
BOOLEAN PROCEDURE TESTSCHEDULERCNEXTESTIS INTEGER NEXTESTS 09373000 
BEGIN 09374000 
09375000 
COMMENT HANDLES THE <SCHEOULE PART> OF CONFIDENCE 09376000 26 
CONTROL CARDS3 09377000 
09378000 
INTEGER Le N3 09379000 
BOOLEAN RO3 150109379100 
DEFINE RL®REAL#3 %150109379200 
LABEL LOOP sNR»REPsFINDMOOIFIERSs XL OOP sABORNOsE » LOOKS 09380000 
DEFINE ERRCERR{ BEGIN ERRORISERRIS GO EF ENDSS 09381000 
% . 2s ; ' 09382000 
NSBNEXTESTS : ss as ae ee 09383000 
LOOP 8 09384000 
SCAN3 09385000 
IF SPECTALCHRS")” THEN GO LOOKS 09385100 
IF ROtSRO OR. (35 LEQ whewORD’ LER 36). THEN. READONLY ~¥150109385200 
BEGIN... %150109385300 


IF N NEGO. THEN | ERRCSOIS IF. NO} DISKTEST THEN €RR(53)3 %150109385400 
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eo 2 FF Fz 


SCANS WEEWORDS %150109345500 
ENDS %150109385600 e 
210 =9 38 oe hoe Sa eee 3 
BEGIN : 09387000 
SCANS | or wee 09386000 | :|@ 
ee GO _NRS cs 09389000 3 
ENDS 09390000 4 
IF W=8 THEN %ALL 09391000 |@ 
N 09392000 é 
IF RO THEN ERR(50)3 ¥150409392100 ? 
FOR 1t=1 STEP 1 UNTIL NUMBEROFTESTS pO 09393000 |@ 
: 09394000 9 
IF N GTR 63 THEN ERA(AA)3 09395000 
TESTARRAYCNI $=181 (CTF 13 09396000 1@ 
KITE THEN TWOS TESTMASK 0109397000. ie 
SNOWED 09398000 : Ks 
ENDS 09399000 hd ® 
OG40inoo 
IF WORD®9 THEN SCAN3 09402000 16 
IF WORD#11 THEN  %EXCEPT 09403000 @ 
REGIA MOG OB OG ec ene pale cere Eo ane ee ee) ‘8 
SCANZ |. %140709404100 1@ 
IF WORD29 THEN %140709405000 i 
NOF O94O06000 aq 
SCAN} 09407000 = 
IF WORD=10 THEN SCAN} TEST 09408000 1 @ 
ee OHO SOO act S st a te en ee ee ad 
IF NTLISTESTBUFFERLO] GTR NUMBEROFTESTS OR NT1=0 09410000 2 
oe & THEN: EREC23) 094131000 2) @ 
ee “{):s03 10 2-01 01 | EE ten aR ne ee eT ei 
IF DISKTEST THEN 09412100 ai 
BEGIN 09412200 1@ 
NI2%=03 09442 ee ee ee ee so 
FOR NT3!tsNEXTEST@1 STEP -1 UNTIL O DO 09412400 
IF TESTARRAYINT3].C27¢6J2NTL THEN 09412500 2] @ 
t313 : 0941260 Oi tt sae en 33 
IF NOT BL(NT2) THEN RESETCNT 1s TESTMASKI? %150109412700 
ENDS 09412800 1 @ 
SCAN} 4 Rane ee ee 96 
IF SPECIALCHR="** THEN GO XLOOP3 09414000 i 
END} 09415000 a @ 
END ELSE ' 09416000 : 39 
IF SPECIALCHRS"(" THEN IF RO THEN ERR(31) ELSE 4150109417000 19 
IF TESTSCHEDULER(N) THEN GO — ELSE SCAN ELSE 09418000 i@ 
NR? IF COUNT LSS 0 THEN 09419000 7 a2 
: BEGIN 09420000 ; 4 
IF NTL teTesTeUFFEREO3 aTR: NUMBEROF TESTS OR NTLi#O THEN 09421000 : 4@ 
“ARO23)3 . - 09422000 = te 45 
IF RO THEN %150109422100 r 
IF RLCBLCENTIERC2*NT1)) AND BLC3"42520"))=0 THEN %150109422200 7] @) 
RR(52)3 %150109422300 
IF N GTR 63 THEN ERR(44)3 09423000 4 
TESTARRAYINJFSLENTICCTFISRL RODCOFA7 S195  %150109424000 aoe 1@ 
IF ODSKTEST THEN IF RU. THEN %150109424100 on es 51 
TWOSET(NT1*ROMASK) ELSE THOSETINT TESTS” %150109424150 5 
Nt=Net3 09425000 «| © 
SCAN3 09426000 54 
END ELSE ERRCi2)3. 7 09427000 | — ss 
IF SPECTALCHART " OR SPECTALCHRE™)" THEN go LaoKs 09427300 ws si @ 
NOMODIFIERS!.. ae : a ae 09428000 ee ee eee 5 
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@ 
IF SPECIALCHRE"x" THEN 09429000 
e BEGIN 09430000 
ur IF JUNKBISCOUNT GEQ O THEN ERRC1123 09432000 
@ | REP 09433000 
3 hy : TB Bro) a M AND Og BANOO 
‘ BEGIN 09435000 
@|: FOR It=ne1 STEP “i UNTIL NEXTEST 00 09436000 
6 h ARRA R QO TR ag 000 
7 IF NT224 THEN 09438000 
@: TESTARRAYCI Jo CCFJISNTL 09439000 
; RS 4 =e OR a. O9H4GOOOO oon 
bi END 09441000 
er ELSE ERR(14)3 09442000 
bg poe eeet 4 ee IF JUNKB THEN noo 
BEGIN 09444000 
@™ SCANS =e 09445000, 
1s oo WORD NEG 12 THEN ERRCIOQ)S 
a ENDS 09447000 
eo.” END ELSE 09448000 
4 IF JUNKAY=COQUNT < 0 THEN GO REPZ 50449000 ~=— 
IF WiseWORD = 37 THEN ANODATA. %150109449100 
T a BEGIN %150109449200 | 
' ca tine IN  e  UNONUSGO0e ho no et 
pa GO ABORNOS 150109449400 
eR END; %150109449500 
P LFW = 13 THEN __aQ___xiso1og4sa9qq___ 
BEGIN 09451000 
@ 2 NT3t843 . 4150109452000 
p77} BORNG?! ; 09453000 te aie aoa ncsito ca 
2a FOR [t=N"1 STEP «1 UNTIL NEXTEST DO 09454000 
@ » BEGIN 09455000 
Bo | TESTARRAYL] Jel133 O THEN ERRC22)3 2150109456000 Ee 
TESTARRAYE1Je(123)8aNT33 %150109457000 
@ IF (NTL ESTESTARRAYEIJ, (2786)) MOD 10 = 3 THEN ¥%150109457010 
BEGIN £150109457020 ; 
TWOSETCNT1»sNOMASK)3 A\T23213 %150109457030 
& FOR NT4t= NEAXTEST™1 STEP 71 UNTIL O DO %¥150109457040 
LF_CNTS#STESTARRAYEINTS) ) gC 2786)]2NT1 THEN 09457050 Eo 
IF NT5,Ci23] = O THEN %150109457060 
 ] NT4tenT2isds %¥150109457070 
IF _BLONT2) THEN RESETCNTL*® TESTMASK 1501 09457080 
END3 %150109457090 
@ END 09457400 
END ELSE 09457200, 
IF wWs15 THEN %ABREVIATE ne 09458000 
@ BEGIN oat "ty van 09459000 
NT 38RD} 7 _%150109460000_ _| 
GO ABORNU} 09461000 
@ END ELSE | 09462000 
IF W=33 THEN %NOISE | 140309462100 
‘te BEGIN é %140309462200 
@ NT34063 iy - ) %150109462300 
P 60 ABORNOS. c bee : . ¥140309462400 
a END ELSE | . %140309462500 
Oo} IF ws32 THEN AWAIT 09463000 
ial ™ 09464000 = 
rug ETT ee era ee 99465000 
@ bs TF COUNT. aco. 0 THEN ERRCASDS e Oc ane ~ 99466000 
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FOR [8=N™1 STEP 1 UNTIL NEXTEST 00 09468000 
BEGIN 09469000 
ncn ete , Ato) 3 ; oko le eames 
TESTARRAYELI¢CAIS*9ISENT 13. 09471000 
ENDS | 09472000 
se Si a ENE ES RA acre dee ee OW O00 set se 
SCANS 09473100 
IF SPECIALCRRE")" OR SPECIAL CHRE",s" THEN 09474000 
a ee ee Pe 09475000 00 
LOOKS . 09475100 
NEXTEST&#N; 09476000 
F  SPECIALCHR=s! THEN GC OUP: 4 Leer 


END. 09478000 


ELSE GO FINDMUDIFIERS; 09479000 
"EF CCTWOTC2sTESTMASK) AND SEGS < 2) OR %150109479200 
CTWOTCL2sTESTMASK) AND SEGS < 30)) THEN ERR(28) %150109479300 
eh SO is co ST SS WN cect rl ee a eee tt OU UNE OO Octo. eal 
Et TESTSCHEUULER S=TRUES 09482000 
END OF TESTSCHEDULERS 09484000 


(ERMA AAD RRA RRR RARER EEE EE ALARA EERE EEE EEA 49 


PROCEOURE PRINTCCARDS( CCS» CCCOUNT»T0G); VALUE TOG; %150109490100 _ 
ARRAY CCSC*]3 INTEGER CCCOUNTS 2150109490200 
BOOLEAN T 094 ak 
COMMENT PRINTS THE FI&ST 10xCCCOUNT wURDS OF CCSC#). #150109490400 

WILL PRINT CCS 10 WORDS AT A TIME TO EITHER %150109490500 


eel cmon bs Oe LINE (TOG TRUE) OR OUTFIT. The ACTUAL PARAMETER 2150109490600  _—T 


PASSED AS CCCUUNT IS SET TO ZERO AFTER THE %150109490700 
PRINTING IS COMPLETEQ3 %#150109490800 
N 4 
INTEGER J %¥150109491000 
% *150109491100 
ae FOR y:=0 STEP 4 UNTIL CCCOUNT D0 2150109491200 
BEGIN %1590109491 300 
IF 1 woo ) THEN MOVE(LOsCCSEIX10)°CCS)3 %150409491400 
F_T 29109491500 


PSITeT rice UaLinionceeraa) 150109491600 


ELSE WRITECOUTFICOBLJ210,CCSL*))5 %150109491700 

ND} #15010949 
CCCOUNT3=03 %150109491900 
END; %#150109492000 


Katee kee hk tek fk iO OU GO it oad ttianitkete 10840000 
PROCEDURE CONTROLCARDERROR: %150110840100 
BEGIN %#150110840200 


BIG UIIIGIIIIUIGIIIGIUIUINIIIIIDIIGIUIGICUIGIIUIUIIIGGIIIIIIOUICFIG ISOiiiotiniiiioiiicetiet «10840300 


STREAM PROCEOURE ERROUTCOUTBUFFERs COUNT» 10850000 
FIRSTSCANsMAINTsCOL*sERRBUFF sERROR)S 10860000 
VALUE COUNTS FIRSTSCANsMAINT sCOLsSERRORE 10870000 
COMMENT SPOUTS MAINTENANCE CC ERROR MSGS; 10870100 
BEGIN 10880000 

r) Eze . Ro» 089000 
0S#s314 LIT WEMAINT cc es 10900000 
$1smeRRBUFFS , | 10910000 
RRO : ba . ; 0920000 
1OCIF SC mem THEN ; 10930000 
BEGIN SJseS1+14 OSt=LIT """5 END 10940000 
='"*" THEN yUMP OU SE _DS1= HR 3 10950000 
DSts5 LIT ")CRO "3 . 10960000 
padidibeawes al ae ciclied hae ‘OstLIT ring Dste2 armas 10970000 


Bs N98O00O00 


Data Documents/inc. 


5 A A A ee ee 
@® © = § @ & 


S & YN & 3 
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os 
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as 5 TS 
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oe: 
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SI:sFIRSTSCANS OSt=SCGUNT CHR; 10990000 
OStsLIT “I; 11900000 
OSis a a OOOO 
END3 * ¥150411030100 
TIE IU IIIS TIIUIDIGI I OR IU I RG i itt ines 11030200 
BEGIN %150111030400.——~CS~S 
IF ERRCR LEG 29 THEN 150111930500 
B N y 0600 vaca RSG SS 
FILL JUNKBUFFEREC*#)] WITH. %¥1501411030700 
WINV £ST “eo wDe My %150111030800 
beet ND a "," pee oi Se iol ROE AU OOO Go 
"AO DSK A™s"DDR* "sy %$150111031000 
"NO Behe Me "» %¥150411931100 
Fs sh "NO END* "so"? "s i nh Ai Soe Ae Se ee OO ct ter oe 
"NO SCHED» ** a Ry 150111931300 
"XTRA TRATs"NS& "» %*150111031400 
eet "XTRA OUets" "» OF1 506 ek ee 
"INV QU ws," ", #£1501119031600 
"DUP TEST "#w "s 4150111931700 
Sas ee ee Le Yl " "Ss * w ' pee eahgeen das teats ote ‘s 
"NO XINT#t,t "5 4150111031900 
NO TESTats te "y ¥1501119032000 
pe NE EOF 052100 
"INV TIME"s "5% "y 150111932200 
"NO TESTS "atte "» %1350111932300 
iz “INV WHE» OD & " 3 baste oie Lo nt, 
"XTRA SAL" se" Lae "» %150111032500 
"XTRA EXC ™s"EPTe "5 *#1591119032600 
ee es Oe " +4 Bip te ", ; Q Mote min ole ct nae oats 
"NO EXCEP"s "Tx ers %1501119032800 
“INV ZNOR eM a "» 4150111932900 
"XTRA ZNO", "he I a ee eR OIA OSS 000 ee ne te 
"INV TEST oe "Fe ", 4150111933100 
"NO Rode Hy" "» ¥450111933200 
HIN NSK ,"ANDKR* " ; ¢ O00 Spc sie Ae 
"NO SH#Su MyM "yy 2150111033400 
"INV REQU™S"EST* "» %4150111033500 
"INSUF SE» "GS* ue 150111033600 _. 
INV UNE Ts %# "3 %150111933700 
END ELSE %150111933800 
BEGIN 150 0339 


IF ERRORS#ERROR"30=4 THEN COUNTI=SPECTIALCHR&=03 
FILL JUNKBUFFERC*) WITH 
" 


N x Wen " 


®INV CHRet es. 
"NO OU*e fe 
Th ABE,” a WA 
"INCOMPLE™s"TE CC 
"INV PROG"s" NAME® 
"NO NARI» te 

PINV EU N"s"@s 
"NO SU NRMsM* 

few SUNY pM Re 
"NO DISK "o"NR* 
"INV DISK"s" NR* 
"NO ZONE “se "NR* 
“INV ZONE%#" NR* 

‘TOO MANY" >" TESTS» 
NO WALT Na TIME ® 


%150 


4150111034000 
%#150111034100 


0 
*1501119034300 
#150111934400 
; 094500 _ 
4150111034600 
150111034700 
Q 034800 
¥1501119034900 
%150111035000 
y = Q ef UO 
%#150111035200 
*150111935300 
%450 035400 
4130111035500 
%150111035600 
035700 


Data Documents/Inc. 


. + a 0 5 5 5 7 


ge eo 


"INV WAIT%s™ TIME® ,p%46 %150111035800 
"OUP WAIT» TIMEs en %*150411935900 e 
" Wate " i 
"OFCU NOT%s” READY® rT) %150111036100 ’ 
"7 TST ON*e"LY ON RO",%50 ¥150111036110 |@ 
"INV RO Ss"CHED* Mee5q 00 150111036120 hoe _ os 
"INV RO T'e"TEST @* s%52 %150111036130 4 
"RO INV O%e"N TAPE® "3253 %150111036140 |@ 
ND3 0111030200 —ss— 6 
ERROUTCOUTBUFFER» ABS( COUNT )+ %150111936300 ? 
REALCSPECTALCHR NEQ 0) »FIRSTSCANSCRO» %150111036400 |@ 
a x RSTSCA 332,51" CORE ADDR PUTE Rd)+ 0 Q36500 = 3 
FIRSTSCAN«(2786)*1» JUNKBUFFERSERRURDS %150111036600 ; 
WRITE CCF ILE» 9*OUTBUFFER[#))3 % 150111036700 1/@ 
’ a a et ee a OO LOO B00 i le et a 
END} 11050000 3 
BI IOI OIG IID IGG Rk itt ick iat 1050700 ‘ ®@ 
______ STREAM PROCEDURE ROTATECBUFF »JUNK»sNeLENGTH)S VALUE BUFF »N»sLENGIHS 11050200 ie 
11950203 i 
COMMENT ROTATES THE CHARACTERS IN A BUFFER IN A 11050205 |@ 
CIRCULAR FASHION. BUFF CONTAINS THE __11050210 18 
CORE ADDRESS OF THE BUFFER. JUNK IS 11050215 Ly 
PASSED BY NAME AND IS USED) FOR TEMPORARY 11050220 2j@ 
________ STORAGE, AT . FAST N CHARACTERS RE REQUIRED = 44080025 2 
AT JUNK, LENGTH SPECIFIES TRE LENGTH OF 11050230 le 
THE BUFFER IS CHARKACTERSS 11050235 2a 
a a a i Si th ey on ta ore ee a ed 24 
BEGIN LOCAL L»NNeNNNoLLS 11050300 2 
SItmLG@C LENGTHYOItsLOC L$ SlasSI+os DI t=D1+73 DStaCHRS 11050400 2 @ 
; 8 N22 of SLi ALAN = 6 "\ s } D S CHE 050500 ieee ets 
SItsLacC NS SIssS1+953 OLs=L0C NNNS OI ssDI+73 DStsCHRs 11050600 1@ 
SItsLoc LENGTH; S1iss 1*53 OLS=LUC LLSZ VII=ZDI+735 DSI=CHR 11050700 : 
ts 3 ts : 0 
NNN(8C16C(D0S%232 CHR)))4 11050900 _ 
NNCDS#a32 CHRS OSi232 CHR)s DSt=N CHRI DIS sBUFFS 11051000 | 2 @ 
(8(16(0S%232 CHR) 119051300 
L(DSts32 CHR$ DS!=232 CHR)# DS?SLEnGTH CHR3 11051200 
SItsJUNKs O1teBUE Fs 11051300 131@ 
6 t= ‘ Q See eee eer ee a ne el Fas 
LCDI ssDI4+32; ARCLICEESS OissDl+LENGTH3 11051500 7 
NNN(8(16(D$t232 CHR)D)3 | 11051600 4@ 
NNCOSte32 CHRS 0S2"32 CHR)S DS%=N CHR} 11951700 IAN a oe be 
END; 11051800 ; “ 
$SET OMIT#OMITINTERPRETER 11051899 «|@ 
ASE AEAAEEN EEA AMS AE SAE RNS ENA WW EEE E EEE ES SA EWE ERS SAS OWE EEA OR ee NY 051900 4m 
STREAM PROCEQURE BUFFERSHIFT(S, ArBrNeRTeHETODS ieee 11052000 
VALUE SsAsBeNeRTsHETOS soe 44052100 @ 


4052103 5 
BUFFERSHIFT WILL SHIFY THE CONTESTS OF 11052105 i 

A BUFFER RIGHT GR LEFT BY S CHARACTERSs 11952110 0 
HETO DETERMINES IF THE RESULTING PATTERN 11052115 
IS TO BE LEFT IN THE ORIGINAL BUFFER 21052120 4s 
CHETO#0) OR GENERATED IS A SEPARATE. BUFFER 11052125 , | f 1@ 
CHETOs{),. A CONTAINS THE ADDRESS 0 14052430 

THE BUFFER BEING SHIFTED. 8 CONTAINS 11052135 
THE ADDRESS OF THE BUFFER IN WHICH THE RESULT 11052140 sj @ 
IS TO BE PLACED (AsB IF HETO=0). RT=1 IF 11052145 | ® 


COMMENT 


THE SHIFT. 1S TO THE RIGHT AND 50 TF SHIFT IS 11052150 “ ie ee 66 
Te jp SPECTRIES THE LENGTH OF: THE QUFFER 11052155 —— A tates | @ 
ERS. SSF 11052160 BA eae eee eee Soe eae y 
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oo ~~ ®@ OF F WH = 


Ceerees ees 


119052165 
BEGIN LOCAL NNsSSeSSSeNNNS LABEL XITI 11952200 
SItslLGC Ns SIt=S1+63 DIS=LUC NN3 DItsV14+73 DStRCHRS 11052300 ute 
SIT#*slLac Ss SIbsSl46s OL2SLNC SS3 NLesO014+73 OStscHRs 11952400 
ote OIeaBs , 11052500 
: 6(Nlrabi+ 3s , sOl+323 sDI+¢ 500 Lee nso 
DI: =DI+S;3 41052700 
NNNCBCLECDS3 232 CHR)))3 11952800 
NIN tz als B = HR DS: Mal, ; : 900 ie a eno 
HETOCSE teas DI84Q; | 11053000 
SS8(8C16(DSt232 CnRd)93 11953100 
SBE DSiste CHRG NSItS32 CHRIS DSt!eS CHRIS 440532900  # 3»3»&3= = 
JUMP OUT TU XIT)3 11953300 
$S5(8¢(16¢CS13=514+32)))35 11953400 
_ SSCST88S7+3923 Slt=SJ+32)) Spstssype+s3 ret piel fait atm 
NNN(B(16(0S!2"232 CHR)))3 11953600 
NN(05%2332 CHR# DS3232 CHRIS DSten CHR: 41053700 
ee oe 5 ee aes 
NNNCOC16CSIT 82ST 432) 795 11053900 
NBCoLisoivaes S12851+32)3 SIT?=SI+N3 11954000 
S8(DS1"32 CHR} OS#=32 CHRII DStRS CHRD} 11054200, t—i‘it‘i«‘s 
XIT? ENDS 11054300 


$POP 


LiF ee reste N Ae ESADEORAOAEA TET O REWER DARED RAEN AONE Qeed EEK EaSwNER EAR WERNT 1060000 


BOOLEAN PROCEDURE TESTADDRESS(CAUDRI4 VALUE ADDR: 11970000 
Soe eC ae 0010-2 a ee a eee aan meemnarere ce’, [0/10 01 ¢' c ease Mee 
| 11080005 
COMMENT RETURNS TRUE IF. ADDR IS AN INVALID DISK 11980100 
; “Welbi:: 5 O8010 REL SSENS Sore I STS EE REDS STE ES 
11980110 
WARNING**2227THIS ROUTINE WIPES QyT 11080115 
BUFFER(Q)ses=*%2e89 OO ¢ seta a ee age oe 
11980125 
; 11980130 
BEGIN 090000 | rose 
REAL Is 11100000 
TESTADDRESS? sC I? sDECMALCADDR)),£€6%6) GTR 9 OR 11110000 
Tef1236] GTR 3 OR BUULEANCDOISKIOCTESTBUFFERs "Os 14120000 
ADDR) .£2731])3 1113000C 
END3 | 11140000 
: Dhudah Aalettatiedateliehtdediek Autti dtuled Ah. tok tk ded teed tek tek kh ohio hk CLA LCL CLL 150000 
PROCEDURE CLEARAREAS 11160000 
BEGIN 11170000 
000 
COMMENT CLEARAREA TS CALLED BEFORE ANY READ/WRITE 11170100 


DISKTESTS ARE RUN» IT DETERMINES IF THE 
AREA ON DISK FROM "BEGINADDR” THRU “ENDADOR" 
CONTAINS ANY LOCKED OUT AREASe IF SQ 
MESSAGES INDICATING THE LUCKED UYT AREAS 

ARE PRINTED AND THE USER IS ASKED IF 
HE WISHES TO "SKIP". QR "STOP™s IF HE 
ELECTS TO SKIRs "WRILOCK" IS SET TO TRUE . 
INDICATING THAT A PORTION OF THE TEST AREA 
IS LOCKED OUT. NO NORMAL SEG WHITE TESTS 
WILL BE PERFURMEDe READ TESTS CIF ANY ARE 


SCHEVULED) WILL BE RUN IN THE ENTIRE AREA 


114170105 

70110 
11170115 
11170120 
14170125 


11170130 
11170135 
41170149 


11170145 
11170150 


44170355 


IF THE ENTIRE: AREA. oe NOT LOCKED QUT» THE 
ee T. RITE TESTS WILL BE 


11170160 


11170165 


PET s 
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 ] a 
THE USER WISHES TU "STOP" THE PROGRAM 11170175 
@ BRANCHES BACK TO RETURN. 11170180 é 
IF NO LOCKOUT PROBLEMS ARE ENCOUNTERED AND 11170190 
@ NORMAL SEGMENT WRITE TESTS ARE REQUESTED? 11170195 21@ 
: ' " : " 3 
THE PARAMETER PASSED TQ THAT ROUTINE 11170205 ‘ 
@ IS AS FOLLOWS? 11170210 |@ 
OO As). 6 
C181) #14 11170216 : 
e CLStiSJsADDRESS OF MEMORY LOCATION 11170220 |@ 
P T 11170225 9 
WHEN BRU INES PuNToHES] 11170230 "9 
® MCP WILL PLACE THE VALUE 11170235 1@ 
Socreeeesecm NOPMTOEE Ee’ 8 + 0 DR ee nea ee : 
FINISHED UNLESS MCP HAS BEEN 11170245 bs 
@ COMPILED WITH SHARDISK SET AND 11170250 @ 
See prem es APE OSG ee ot a ee, 18 
HAS WOT BEEN INCLUDED. IN THE 11170260 ‘6 
@ LATER CASE» A 3 IS PLACED IN 11170265 |@ 
a a a e087 wie, Sh Poca _ 
£30323) =O 11170275 he 
® [33115 JsADDRESS OF {0*WGRD ARRAY 11170280 4 @ 
Sa es ore lh ntact es ae eae os 21 
WORD O UF THE ARRAY CONTAINS THE 11170290 2d 
@ | BEGINNING DISK AUURESS 11170295 3 ® 
2 Bap tee a aces aes ar Es 6) (sc a en Be age. 2d 
WORD 1 CONTAINS THE NUMBER OF SEGS TO 11170305 2 
Or BE TESTED 11170310 2 @ 
i \2 
pe THE MCP BUILDS A MESSAGE IN THE ARRAY 11170320 2s 
@ JUST AS IT WOULD IN RESPONSE TO AN 11170325 29 @ 
5S dite ee ene ta 5 MESSAGE. THE STREAM PROCEDURE 11170330 2 
"CLEAREO” EXAMINES THE MESSAGE TO DETERMINE 11170335 31 
@ IF THE MCP WAS ABLE TO CREATE A "DKTESTH® 11170340 | @ 
ae ae ee DE TNE ARCA ei oA STL OFSS S Pae amet Bg 
: 11170350 | 
& IF THE "XD" ACTIUN JS SUCCESSFULs THE 11170355 | @ 
: UTI S_ EXITED. QTHERWISE® THE 10360! ey eb ee 2 hte 36 
MESSAGE PLACED IN "INPUTBUFFER” BY 11170365 37 
@. "DKBUSINESS” IS DEBLANKED AND MOVED 11170370 a4 @ 
: ee TO "OUTBUFFER” BY THE PROCEDURE "DEBLANKER" 11170375 39 
BELOW. THE MESSAGE IS THEN WRITTEN ON 11170380 ‘0 
@ THE SPO OR REMOTE TERMINaLe THE USER IS 11170385 «|@ 
THEN GIVEN THE OPTION OF ENTERING "SKIP", 11170390) 42 
"STOP", OR "OK", IF "SKIP" JS ENTERED» 11170395 : 4 
® NO NORMAL SEGMENT WRITE TESTS WILL BE 11170400 | a® 
‘PERFORMED. ANY OTHER TESTS SCHEDULED WILL 11170405 ie 
BE RUN» HOWEVER. IF *STOP™ IS ENTERED» 11170410 | ‘4 
e THE PROGRAM BRANCHES TO "RETUKN®, 11170415 1) 
IF "OK" IS ENTERED, THE CALL GN “DKBUSINESS" 11170420 7 
IS REPEATED CASSUMEDLY+ THE USER HAS REMOVED 11170425 4 
er . FILES FROM THE AREA BEFORE ENTERING THE OK") 11170430 | @ 
ie, 7 | phe ea 11170435 _ | Bt seen a 
| 3 11170440 5 
ef SSET OMIT=OMITDISKTESTS OR DEBUG 11179999 «1 @ 
LABEL TRYGREATE sKBDsXIT3 11180000, s 
Be) REAL BUFF sADDRsSLEEPER® JUNK3 11190000 . 5 
@ Ff FORMAT LOFCrseGs melas? TO "el 8e" LOCKED ouTM, 11200000 eas + @ 
a vo ule Lh Wy tT Phin a = 1%) ee : 210000 . : . A 57) 
& 


"en" )»s 11220000 
NOTAVAILF C™NORMAL eG WRITE TESTS NOT AVAIL" 11230000 
id be KW AR K y a ait ee 
ALREADY(" TEST AREA ALREADY CLEAREDCIN USE BY "se %140411250000 
Abe™/"shivAGe")")} 11260000 
BOOLEAN SD3 11310000 
oh td iO ii i Gi IOI IO Boi I OO dik ink ietk ing tie 11920000 
BOOLEAN REAM PROCEDURE CLEAREUCBUFF ); 611 0 pape eee ead ir ae 
BEGIN 11340000 
LOCAL TEMPsTSI3 41350000 
a a a el Eh 8 es Yo, ah cy SaaS SA 
SIt=BuUFFS IF SCs" “ THEN 11370000 
BEGIN SItesl+13 IF SCE"O" THEN TALLY%=13 ENO ELSE 11380000 
sae A Lo ENG cae oes DAS POO oe Ses ester ea os 
SyesSy+395 TSyte5y3 11400000 
DYt=LOC TEMPS OSte6 LIT “"DKTEST"S 11410000 
Cae hers cn er See BOI*63 Se rie De St ENN OOOO Dens. 2.2 et es 
IF 6 SC#¥0C THEN 11430000 
L$ BEGIN ; 11440000 
OL¢#OI96s SltszSier; 11460000 
IF 7 SC GEG DC THEN 11470000 
IN a ae Be) PO ee 
P TALLY2=35 SIT%sTSls OLSsBurrs 11490000 
P QSt=2 LIT "0"F OStS6 CHR} 11500000 
sf eT SIS DST ELIT "OG DStB7 CHRE 1310000 
s P ENDS 11520000 
=@ bel ENO ELSE 11530000 
Se BEGIN 340000 2 
8 Be DIt=_LUc TEMP$ DOSt=6 LIT "BADISK"; DI &eOI]~6; 11550000 
£@ 9 SIsstTS1s Ir 6 SCeDOC THEN GO L3 11560000 
cE END3 37000 serena Neh te ee 
END3 11580000 
CLEAREDSSTALLY3 11590000 
END3 Gt ete OO ok eit ted 
FoF te TTI III I ITI OIG ITO II III IOI IG ii agioioi do ten ition 11610000 
STREAM PROCEDURE DEBLANKER(CAsB) > 11620000 
BEGIN LABEL L*BB3 11630000 
SItsa3 Olt*aBs OSteCHRs 11640000 
Ls IF SC NEQ "#"* THEN 11650000 
BEGIN 660000 
BB: IF 2C=" " THEN 11670000 
BEGIN 11680000 
ese RUNGE eee Et 2) Ce ee eee oe cen a ee Se CS 1° 8°] 01°] 0 See eee eR 
IF Sca* " THEN GO 883° . 41700000 
IF SCSALPHA THEN 11710000 
RE GIN SIteSleis OStecHRs ENDS a PeOOOO 
GQ L3 11730000. 
ENDS 11740000 
SECHRE G ; OO00 
END3 11760000 
DStsLIT "ems . , : 11760000 
: NO : 800000 
Leda neeeeaweeeKKE RAH AHRERAHHRENEAAHE MEAN ORE RRUAN RA GEH AMAR REDE A RHE HEENLIOLOOOD 
LOCKWORD%=Q3 11811000 
IF REALCCTESTMASK AND NOT RUMASK) AND %150111812000 
" BLOI"57762")) NEO O THEN + 150111813000 
NONATASNRTEGCA tar ALBEA:. : ae Se -_ 41820000 


FOR ADDRie1DO0Ox( BEGIN ADOR DIV 10000) $1 P90000 UNTIL 830000 
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3 3 


a Se @ )¢ 
10000x(ENDADOR DIV 10000)+9999 DO 11840000 
IF BOOQLEANCOISKIOCTESTBUFFER, 0, AD0R),(2881)) THEN 11850000 e 
a N 9.6. ar a ANS at a a ola arto 
TWOSETCCADOR DIV 10000) MOO 1LO0sLUCKWORD)S 11861000 . : 
WRITECCFILEsLOFs ADDRs ADDR4+99995 11870000 | |@ 
ADOR OD 000000 B80N00 . 
CCIS=SCADDR DIV 10000) MOD 100) MOD 4)+ 11890000 ‘le 
CCL DIV C4XxDKTYPE) )x4)41)3 11900000 5 
AR OCK&STRUES 11910000 : 
ENDS . 11920000 im i 
IF WRTLOCK THEN GO KBD} 11930000 |@ 
_ te2e 3 Be Fe 10etLelori3zs 940 seas nee Se eB 9 
WRTLOCKI=WRTLOCK OR TAOTCIeTESTMASK OR ROMASK)3 %150111950000 r0 
IF WRTILOCK THEN WRTLOCKS=FALSE ELSE GO XIT3 11960000 /@ 
BUFF ts=( ADDRt=CUREADOR( SLEEPER) )@COREADDRCINPUTBUFFER[IJ)11970000. 1 
£15833%815)3° 11980000 : bi 
TRYCREATES ‘ 41990000 | @ 
_ LINPUTBUFFERLOJ3=REGINADDRS 12000000. | 19 
INPUTBUFFERC1]2=SEGS) %#150112010000 ‘6 
SLEEPERS=03 DKBUSINESS(BUFF)3 12020000 |@ 
IF SDs=SLEEPERE3 THEN sce LOO SOO 00 oa Sees Sn he 18 
BEGIN 12040000 ; "9 
WRITECCFILEs NOTAVAILE )3 12050000 4 @ 
K (s) 5 ao ea, RW acre RE Nh ; 21 
END ELSE 12070000 2 
BEGIN 12080000 21 @ 
R Hea htt eaten LG ee SSE Sy eccdeen 24] 
IF Lae TH SEa CELERANT TTC EL OTT LSS 3 THEN 12100000 29 
WRITE CCFILEs10s0UTBUFFER[#1) ELSE 12110000 7 3) @ 
2 
OUTBUFFER(1))«C6to)»JUNK)3 12130000 ae 
ENDS 12140000 1 @ 
oe ete F AR REV ThE oo0. ss _ 30 
BEGIN 12160000 31 
KBD! 12170000 1@ 
I  VUNKSSSKTPSTOPOROK(NOTCWRTLOCK OR SO)>TRUED=2 12180000 __ ee ato 
THEN GO RETURN ELSE 12190000 
IF JUNK=1 THEN 12200000 21 @ 
BEGIN NOWRT®=TRUE3GU XITSEND ELSE 12210000, 26 
IF JUNKS3 THEN GO TRYCREATE ELSE 12220000 37 
GO KBDS 12230000 ° a @ 
ENDS 2350000 en 
XIT3 %140412355000 40 
SPOP OMIT 12355001 «|@ 
END OF CLEARAREAS 12360000 e 
TEGO IUISI IIE IGIUISIIEI III IIS IIOO EIRENE ARIE RNR HHH] I7O000 : 4 
STREAM PROCEDURE GLEANWOVEC APB93° 12370200 , | 4®@ 
BEGIN’ 12370300 = 49 
12370305 6 
COMMENT CLEANMOVE IS USED TO MOVE CHARACTERS FROM 12370310 7 @] 
A 10 8, TRANSFEK CONTINUES UNTIL A LEFT 12370315 | = 
ARROW IS INCOUNTERED IN THE SOURCE STRING} 12370320 ae oe es 
LABEL Li . ; 12370400 | : bo @ 
DI}sH3 OSte@ LIT” %3. BEES: 5129 wos 370500 5 
SIsmAs D1 seB; . 12370600 5 
Lt IF SC NE@ "" THEN BEGIN DS#SCHR3 GO LS ENDS 12370700 . :1@ 
» 370800 -si(i‘i‘iététS : 
Uevegessvisssesssusvavesvssssssabaveieasvaxiyesiviieeubaubunbunbunuewnee| 2371000 . 55) 
BOOLEAN PROCEDURE SAP ESeaN i 


i 


eee 7 | @ 


HO0005 
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Creer? 


COMMENT USED TO SUAN CUNTRUL CARDS AND DOLLAR CAROS 12390000 
TRUE IF 1) END OF CARD IS REACHED» OR 12400000 
2) A SEMICOLON JTS ENCULNT K 4 he Pin tah ner 
3) A PERCENT SIGN 15 ENCOUNTERED 12410100 
ON A DOLLAR CARD 12410200 
3 12410300 
BEGIN 12410400 
LABEL BACKs EOFS 12420000 
RSTSCANSSLASTSCANS 430000 ae: iearee 
BACK 412431000 
. SAFESCANS s(COUNTS@SCANIT) GTR-16 UR 12440000 
Si i a ne ER me a GN ot 
(COMPILING AND SPECIALCHR="4") OR 12450100 
SPECITALCHR=, "3 12450200 
a nese ee ae ears _IF SPECTALCHRS"." THEN FIRSTSCAN?#LASTSCANSSEINP*103 == =12450300 20 
IF SPECIALCHRs"=" AND NOT COMPILING THEN 12450400 
BEGIN 12450500. 
an Sten td Satin ee FIRSTSCANS#LASTSCANSSINPS __12430600 ere 
; READCINFILEs 10s INPUTBUFFERC*J)CEOF I; 12450700 
ACCUMULATOR? =COREADDR( JUNKBUFFER)S 12450800 
SSCRO+1 45 lei tine ee A el 
IF CCCOUNTS19 THEN CCCOUNT?# 303 12451000 
CLEANMOVE CINGUTOUFFERsCCSCCCCCOUNTESS= 12451100 
ae ee de COUNT OE CEO Pt N00 8 esirems 
GC BACK; 12451300 
EOF: 12451400 
-_ soo EOP UGS TR Is eG cs Bo 
GC PERROR; 12451600 
END3: 12451700 
ENDS 2460000 
SSET OMIT=OMITCOMPILER 12469999 
Tee ee ee a HI ii II III I III IOI IOI III III GIIG OO aninnine se 12470000 
INTEGER PROCEDURE DOLLARCARDS Bo 
BEGIN 12490000 
12490003 
COMMENT HANDLES DOLLAR CARDS OURING SIMPi COMPILATIONS 12490005 
REJECTS ALL DULLAR CARDS THaT 00 NOT BEGIN 12490010 
WITH "TAPES "DISK"s"CARD"s"VUID", OR "VOLDT". 12490015 
RETURNS 0 ON "STAPE"s "$D1SK"» AND *$CcARD” 12490020. ~—Ss— ts 
RETURNS END OF VOID RANGE ON "SVOID" CARD. 12490025 
RETURNS MINUS ENO OF VOID RANGE ON "VOIDT"® CARD. 12490030 
3 00 
ARRAY DOLLARWORDS(087])3 12500000 
aIESES Wi 12210000 
IF NOT. DOLLRE THEN PTOGS3FALSES 12540000 
FILL DOLLARWORDSE*) WITH 12550000 
ois a we ARO ee RC ot a ee ae iter: 12560000... Rees 
"TAPE "eh 12370000 
"DISK ",%2 12380000 
"VOTO "243 1259009000 7 
“VOIOT hh 12591000 
MLIST "45 — : Benita ed . $2000000 
“NEW 86 oy eh ate ne ; “- £2610000 
"DEBUGN “547 12611000 
COUNTS=SCANITS %ZSCAN THE "S$" 12620000 
F_SAFESGAN THEN GO XIT ELSE 2630000 
IF COUNT GTR O THEN. se 12640000 | 


nid Wt eWRD (DOLL ARWORDS? 242*REAL (DOLLRED) 455 0 THEN 12650000 


YLT. pes 640000 
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ELSE 12670000 : 
ELSE GO XIT3 12680000 ® 
BEGIN a 12700000 . ’ 
IF SAFESCAN THEN GO XIT ELSE 12710000 :/@ 
IF COUNT LSS 0 THEN DOLLARCARDS=TESTBUFFERLOJ& 12720000 3 
REALCWH4) (13478195 12721000 4 
GO XIT3 12730000 ‘|@ 
END3 12740000 8 
IF NOT DOLLRE THEN 12750000 role 
BEGIN 12760000 : /@ 
pce ee DDE REP RUE Fs a8 ct eg ce BT IONOO on cer 9 
CASE W OF 12790000 by 
BEGIN 12800000 /@ 
eae ee ee 2 7 Poets oe oes tune PORT OOO eee fF. 2 
BEGIN PTOGtsTRUES END} %¥140412820000 ba 
BEGIN TAPE.TYPES#123 PTOGS=TRUES ENDS 12830000 W@ 
pases Bedtime eNO oe a Re 5-8 0 at fo et eee PE RRR Aer re | 
END; 12850000 a 
LSTS3NTOGIsDEBUGN: SF ALSEs 12651000 . |@ 
gd Se NN EL INO SAE Ee ANS Ne ee te a BOO 00 OS ices ass ee i ce es ete ee ee 
BEGIN . 12870000 ba 
LST1s (WI SWROCDOLLARNORDS»8)=5) OR LSTS 12880000 2 
swe te SB ett tN ri Pee I total tase 2 A 21 
DEBUGNS=DEBUGN OR Ws7s 12891000 le 
END; 12900000 23 
i ec SD ON 0 at Ht i ee eg we eet za 
XIT? FIRSTSCANtS [AST SCANI=INP3 ENO; 12910000 | 2 
$POP OMIT 12910001 2 @ 
Ee LEER E CET ETE E TT ET CPR EE ECL TE LOC RTT Eee WERKEREKEKEKERENS 


910100. 2 
12910200 


REAL STREAM PROCEDURE TOPIODCF)s 
“COMMENT ACTUALLY AN UNFLAG ROUTINE. JT WIiLe 12910300 
——_____ HOWEVER» RETURN THE TOP [vO DESC, GF A 2920305 
FILE If THE FILE*S IDENTIFIER IS PASSEDS 12910310 
BEGIN . 12910400 
1s BC: eee ee 
DIt=LOc TOPIOD3” 12910600 
OS:=swOss 12910700 
Se aereer vem 1) 6 S10 ola 2c) 3 a re 12910800) 0 
BSt=RESET3 12910900 
END3 12911000 
$5 OMITSOM OMP R 919999 
LEAR E RENE HERE HERE ER EH ERR HAH HHEEENRERNRARA ERO MOAR H RHEE AAREREN EAA HELDI9Z0000 
PROCEDURE GETNEXTCARDS %150112930000 
BEGIN y O 9 42 
COMMENT HANDLES THE MERGING OF MASTER SYMBOLIC AND PATCH £1501412930200 | : , 
FILE. WILL LEAVE THE NEXT CARO IMAGE IN [NPUTBUFFER, ALSO 12930300 4@ 
DETECTS "$" CARDS AND HANDLES "VOID" AND #VGIDT" FUNCTIONS 2930400 45 
; %150112930500 : 
FORMAT SEQF(X72s1B)sFMT(XIO5sAle™ "5 A3)3 ¥150112950000 7 @) 
OW NIEGER TAPESEQsPATSEGs 960000 49 
INTEGER DeEsTs ~%150112970000 4s 
LIST TSCTAPESEG) sPS(PATSEQ)3 — 12980000 | «| @ 
LABEL LOOK, STARTs EOFSEOFI,E0F2+c0P 3) _ “12990000 51 
DEFINE SEQNACSEQNA1) =OCTALCTOPIOO( SEQNRI(O)) 83 12991000 5 
Tisn "3 %150112991100 | :1@ 
LOOK 13000000 _— 6a 
“TF NOT PTQG THEN GO EOF. ELSE — 13010000 aa 55 
IF REALCPTOG) bss" 2 THEN : ae 13020000 7 | @ 
BEGIN: 8 oe ie ke ee ee ee 3030000 | pk es eas Oe aes 
@ @ 
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READCTAPECNO]»SEQF se TS) 13040000 
IF PATSEQ NEQ 99999999 THEN 13041000 
DE aPs ° = 
PTOG!#BOOLEAN(3)3 13960000 
END$ 13070000 
STARTS Q80000  ——s—s—sisi#w seal 
IF TAPESEQ LSS PATSEG THEN 13990000 
BEGIN 13100000 
$2 3"63"5 0000 esac AGU 
READCTAPEs 10s INPUTBUFFERED*#))3 13120000 
READCTAPECNOJ)CEQF IS 13130000 
APESEQ!*SEQNR( TAPE); heise ee ADT O00 
IF FALSE THEN 13140000 
EOF’ TAPESEQ? 3999999993 13150000 
END ELS eure : 
BEGIN se 13170000 
Tiagrears 13180000 
Sen ge ee F TAPESEQSPATS HEN ets ne eee 
BEGIN 13200000 
TeS3"51%;5 13210000 
READCTAPECNOJ (EOF I )3 13230000 
TAPESEQ#SSEQNRCTAPE )3 13231000 
EOFLS§ TAPLSEQS S999DL99NY; 13250000 
END3 13260000 
eee , * ; SHPIA TL OOOO ee eee es 
IF PTOG AND PATSE@ NEG 99999999 THEN 13280000 
BEGIN 13290000 
PATSE QI =SEQNRC(PATCH)S 13301000. 
IF PATSEQ299999999 THEN jaeicooe 
Cr ¢ GE Soe ree a 
BEGIN: 13311000 
READCPATCH)S ZREAD 9S CARD 13312000 
RE A PA H 0 a ; f Oh RD 23000 = 
AREADER RELEASE 13314000 
4AT END OF PATCH 13315000 
F DO=s"*" THEN GO SJART3 13335100 
ENDS 13316000 
‘ IF FALSE: THEN 13320000 
OF 2% BEGIN 3330000 
PATSEQ22999999993 13331000 
IF PATCHSWITCHS1 THEN PATCH FILE ON DISK 13332000 
0 PATCH 333000 moe 
IF INSWITOHSS THEN AIF PATCH & CONTROL 13334000 
“XFROM CARD READER 13335000 
3 N g6000 
DONETOG!£=TRUES 13337000 
CLOSE CMAINT)3 13338000 
13340000 
. 13342000 
‘Aik , 135 
BLC3" 706000") 77 13360000 
IF ae THEN 13370000 


“TF E¥s00LLARCARD. ‘LSS 0 THEN. ae 
t WHILE. TAPE SEA uss Paden 00 
_ BEGIN b eee 


13390000. 


13390100 


390200 
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READCTAPE)3 13390300 
TAPESEG?=SEQNR(TAPE)3 13390400 @ 
a ete ga s90s0g 
GO LOOKS . 13400000 . ’ 
END ELSE - 13410000 1@ 
Fin Te OS he Ih aMyf RS SEPA Sie 2 5 Si 8 a Bs Ph ee hes eT 3 
BEGIN 13412000 
PATSEQ?=999999993 13413000 |@ 
i gL a a hee en A OO ence ee te 2 eee ete 6 
END3 13415000 . } 
END} | 13420000 |@ 
___If_£ GTR TESTSsOCTALCTOPLOOCINPUTBUFFER[9])) THEN ee (0s +10 9 
GO START: 13440000 fy 
IF NTOG THEN WRITECNEWS 10s INPUTBUFFERL*))3 150113440100 /@ 
: aN a a es eae i we So ERO OG 0900. oat aetna 8 az) 
BEGIN £150113440300 4 
IF NOT KTOG THEN %150113440400 @ 
a see NS a ae teas ite a SO TA SAU NS DO ince. om cco Dave eee ee 5 
FINDOUTPUTC(LSWITCH®0)3 150113440600 16 
PRINTCCARDS(CCSsCCCGUNT» TRUE D3 150113440700 @ 
_DATIMES COSTE Ue CE 01-10 6a ae ee 
HT@G=TRUES %150113440900 "9 
WRITECOUTFICOBL))3 4150113441000 1 @ 
HOG. ak Ss roche, . Peers Teer 21 
WRITECOUTBUFFERC* IJ »FMT»TsDECMALCA) )3 TERT ETINT TG 2 
MOVEC9sINPUTBUFFERsOUTBUFFERL2 ))3 %150113441300 2 @ 
are ero , 2 912i BTSO17 304 WOO i 24 
WRITECLFILECOBL J] »15»QUTBUFFER[( *});5 2150113441500 é 
ENDS %150113441600 1 @ 
: 2 
es 13450000 zs 
$POP OMIT 13450001 1 @ 
By ee fe ee ee ee I ite See IIT IORI IIIT I AIO TION IOI dO tO te 134 agoogq 30 
PROCEDURE READAGAINS 13490000 1@ 
BEGIN 13500000 il 
OMMENT REFILLS INPUTBUFFER, REINIT{ALIZES 43500005 
AND LASTSCAN, 13500010 
13500015 3@ 
; eat ow PD OO0T Sate 36 
LABEL XIT»EGF3 13510000 | a7 
IF NOT COMPILING THEN 13540000 3@ 
cut IF ACCUMULATORe{ CF J=COREADDR( JUNKBUFFER) GEQ@ 52 THEN13561000 3s 
) GOPERROR(26)3 13562000 ‘0 
LASTSCANS=FIRSTSCANt=INP3 13590000 «|@ 
IF DONESCAN THEN 13600000 42 
REAOCINFILECNOI210, INPUTBUFFERC*) (EOF ] ELSE 13610000 i 
BEGIN 13620000 «®@ 
$SET OMITSOMITCOMPILER 150113630000 45 
IF COMPYLING THEN %150113640000 ‘6 
GETNEXTCARD %150113650000 | @] 
ELSE %150113660000 : 
$POP OMIT %150113670000 4s 
READCLNFILEs 10x TNPUTBYFFERE *3)CEOR13 - ¥150113680000 2 sd @ 
ROPSCROF13 #150113690000 : 2 
$POP OMIT 13810001 5 
ENDS 13840000 | @ 
SCA : 13650000, 64 
GO. xXITs 138600000 55 
EOF: IF DONESCAN THEN MOVECL »COMPAREGUFF C133» 13870000 i@ 
BUFFER) EL 880000 ; : S 
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5 é an 7 A ee A 
(A oS D oe 3 a 


BEGIN 13890000 
ECFTOG:=TRUEs 13900000 
Pines Ae, aPC arama © 4 PSN ol 0 8 | 3 1) a cee ea 13910000 == == 

END3 13920000 
XIT: LINERRORSSFALSES END: 13930000 

Zeke xethnke kev kXeka tad aatae Pee ee Sed OE EEE Se 
PROCEOURE SCAN3 13950000 
BEGIN 13960000 
COMMENT SCANS ONE SPECIALCHARACTERsINTEGER» OR 13960010 
IDENTIFIER FROM SOURCE INPUT. HANOLES 13960015 

TES On $9 6NOAO 
CONFIDENCE CONTROL CARDS. WILL aLSo 13960025 
PLACE A SEMICOLOW IN “SPECIALCRR" IF 13960030 
a EN "ELSE" 15 Sc 2 ge es et OBO O Siar edi lead, 

THIS SIMPLIFIES CHECKING FOR END OF STATEMENTS 13960040 
IN THE COMPILERS 13960045 

LNT sae I7OONO a poetics 
FIRSTSCANS=LASTSCANS 13980000 
IF COUNT*SSCANIT GTR 63 GR 13990000 

se odtl et cat es } Rs"z") THEN HEADAGATWSZ Sen eR eee ore - 
IF NOT GOMPILING THEN 14010000 
IF SPECIALCHRa""" THEN IF CMENTSaNOT CMENT THEN 14020000 


aN at th ONO 00 ee ee 


SPECIALCHR#=03 14040000 
WHILE SPECIALCHR NEG "Y" DO SCANS 14950000 
en tel a hea ONIN te at erect a Ne esa eee eI Ee on NOB O00 Oe erence ee eee 
END; 14970000 
IF COMPILING ANO 14080000 
WEeWROCCOMPAREBUFFCA3)s4)80 OR W393) THEN SEND OR 4090000  _—s» 
SPECIALCHRs="5 "5 14100000 
END; 14110000 
So ete II III OI IOI OO TIO IO yk to itoiick tite t tet} G120000 pe Ty AC ee Ne ae ee ee Ne Te ee oe 
PROCEDURE FILLKXLATEBUFFERS 14130000 
BEGIN 14140000 
_ COMMENT INITILIZES INT*BCL TRANSLATION TABLES 14140005 

FILL TRANSLATEBUFFER(C*] WITH 14150000 
0071201020304050607>s 14160000 

OCTI044131400151617% 14170000 ate eee 
OCT? 261626364656667>5 14180000 
OCT7O71737 460757677» 14190000 

OC TS 241 42h g4uasaea?s 0 AVOGON 
007T5051535440555657>, 14210000 
OCT2021222324252627>» 14220000 
5 3 2 

END$ 14240000 


Rete teeth tek bis ta iad beta rik keine rien 14250000 


LAARELAAARAARRARRAA RARER AATEC LLEL ORAL ERIE rT 
PROCEDURE CCSCANRCWeSP2E»0eA)2 VALLE WseSPsbs 

INTEGER WeSPsbe03 

ARRAY A[*]} 

COMMENT 

SCAN ROUTINE FOR "#" TYPE CONTAGL CARDS, 

WIS THE INDEX INTO RESERVED. WORD LIS ig 
"A" THAT IS EXPECTEDe "Sp" 
A RESERVED WORD IS EXPECTED. IF A 
SPEC HARACTER [S E—xX TEDs "SP" CON NS 


IS ZERO IF 


THAT. CHARACTER» IF THE EXPECTED RESULT IS 
QBTAINEDs THE ACTUAL PARAMETER PASSED. AS”. 
* JS. SET TO 377777", WERWISE » 1! ! 


eerie d bide O. " OTWE RW. NEM 


4414940000 | 
14950000 
14960000 

970000 ee 
14970005 
14970010 

970015 
14970020 
14970025 

970030 
14970035 
14970040 
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2: 


IS NON"ZERO MAINI CC ERR “"E* HAS BEEN DETECTED. 14970050 
IF "E™ = QO » THE ACTUAL PARAMETER "OD" IS SET 14970055 
TE iO aw bAMOTONOBQ 
ITEM NOT IN “A, g 14970065 
; 14970070 
SIN a a BO OON 2 
IF SAFESCAN THEN IF E NEQ O THEN 14990000 
BEGIN 15000000 
COUNT SZSPECTALCHR2=03 1591000 te ees 
ERRORI S343 15020000 
GO PERROR} 15930000 
aN et ct ee ee Se OOO nee. 4 
ELSE pient 15050000 
ELSE 15060000 
Se ree eC sae ere we Re OT he ce etc wh a en OOOO Oe tice a boas 
IF SPECTALCHR3SP TREN DSseEMPTY ELSE 15080000 
GCPERRORCE) 15090000 
pes a I a ta Sie a re ee i Ee a OOO eke es 
IF NTLS=WROCAs20) NEw W THEN 159110000 
IF —E NE@ © TREN GOPERRUKCE) 15120000 
is O000 
ELSE DtsEMPTy3 2 15140000 
END} 15150000 
SAEERERAREREAZAEARLERAELEARRERRARARARRAREREAEEAALER AREER rT (ARRRREEEEEE REESE 60000 — 
INTEGER STREAM PROCEDURE FILELDENTIFIERCFIRSTSCAN* LASTSCANSA)3 15170000 
BEGIN 15180000 
ener OP od ieee er alco ew 8 YB 0 Ge Eh eee ten enone amnTT Ae Teh cee AEWA L007 Ws Meo ON 601 0 Ree eem aeRO ee ee 
LOCAL TisT2s 15200000 
SItsFIRSTSCANS OLtsLOc 113 OSt=wos; 15210000 
L3 IF SC=" ™ THEN BEGIN SI#2#51413 GO LS END ELSE 15230000 
IF SCs"e" THEN 15240000 
BEGIN 15250000 200 
OLlteLOc FILEIDENTIFIERS 15260000 
OSt28 LIT "00077777%3 15270000 
GO L353 2140415280000 
END; 15290000 
TitsSy3 SyTssLOc Tis OLF=FAIRSTSCAN; DSt*wOS 3 SIt=T13 15300000 
IF SCSALPHA THEN TALL Y#=1 ELSE GO XITs 15310000 es teen wae oe 
DLliszAs OStei16 LIT "0 "3 15320000 
DItsDI71534 15330000 
7¢ SCtALPHA THEN DS#®CHR ELSE JUMP OUT) 15340000 
Li: IF SCs" * THEN BEGIN SIt2514+13 GO Lis END ELSE 15350000 
IF SCe"/" THEN SIssSl+1 ELSt GO XITs 15360000 
: “nit N T:35]+ ; € St 370 ree 
IF SCeALPHA THEN TALLY $2 ELSE . 2140415380000 
L33 Be XIT3S = %140415381000 
BAS 1 2enie9o 3. : YOO0D eee 
TIE SC=ALPHA THEN DSt=CHR ELSE JUMP QUT); 15400000 
XIT8 15410000 
TiteSys SytsLOc Tis DIt=LASTSCANS DStewps; 420000 yee 
FILETDENTIFIERSWTALLY? Be : ae 15430000 
END? . nes to 0 ae iy ies : ete 15440000 
LEFT LELITITITTETE ETT TTT! ee AKT e eee Ee ee ee eee ee eee L5H 450000 
PROCEDURE LABELEQUATERCF.s SUH SN PWM DAI VALUE SwieWws 15460000 
FILE Fa INTEGER SWeSwiewns 15470000 
ARRAY A[*]3 15480000) 
BEGIN. ao ce Praha ge © pees af 15490000 
ARRAY AALOSL JR oo “ : 15500000 
INTEGER: D3 Cee oe a 45520000 
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cS 


eee eerreneeremenn te re et a cn 


NEFINE FILEIOSFILEIDENTIFIERCFIRSTSCAN»sLASTSCANS 15530000 

AA); 15540000 
IF SAFESCAN THEN GOPERROR(34)3 15560000t—i‘é«s 
LASTSCAN?@F IRSTSCANS 15570000 

ZO, ROOOGO ee ATOR ee a ee 

IF NTZ?t=FILElD= O THEN GOPERROR(C 34) ELSE 15590000 
IF SWL GTR O THEN | 15660000 
: e OO 6 a et i ls 

CCSCANR(WW2000900A)3 15610000 


IF OSEMPTY THEN OWSaSWi ELSE LASTSCANSsFIRSTSCANS 15620000 
Se ae a a Oe ect 


FILL F WITH IF &LONT2Z) THEN 0 ELSE AALO]> 15630000 
IF BLONT2) THEN AALO] ELSE AACY)3 15631000 
Bree tere ate MONE CO nO ARTES VB UR RGR ID bic pce a N eae ioe were ie ee rene OA OO Oe 
END3 . 15640000 
ee te ii aR a II Oa ak kk tet etl 5 650000 
__ BOOLEAN PROCEDURE CONTROLCARD} 140115660000 
BEGIN 140115670000 
COMMENT SCANS “** TYPE MALWTEWANCE CONTROL CARDS; %140115670005 
OWN ARRAY CONTROLWORDS(0319]3 me —— A MOLT5O6BO0000 
INTEGER D3 %140115690000 
BOOLEAN CMPL3 4140115692000 
LABEL LEeLELsXIT or K4140115700000 
DEFINE %*140115710000 
CCSCANCCCSCANT > CCSCAN2s CCSCANISCCOCANS = *#140115720000 
CCSCANRCCCSCANY pCCSCAN2 » CCSCAN3 9 COSCANS » 2140115730000 ee oat teen tte tae 
CONTROLWORDS )#,» 140115740000 
GABE Coyle ESPELEGUATE SC BRECERUMTEerCADEGESUATER? %#140115750000 
= 7 il GO0006 as aie isto ol ce 
PabECEQUATERCLARELEOUASEIGLAME CE OUNTERo Lee Ean TE ae 4140115770000 
LABELEQUATE4sCONTROLWORDS) #4 ¥140115780000 
x 940090 
UNLOCK(CCCS¢#))3 ¥$140115794050 
FILL TAPE WITH "SYMBOL * »"TPECNF peek ees 35 %¥140115794100 
OF Hh VOTPECNE MA "3 ) 14% Ba eRe ee 
FILL NEW WITH "NEN "es "MAINT "3 %140115794300 
PILL PTCH WITH "PATCH “s"MAINT "3 %140115794400 
QUATEDS=FALSES Be ee ee OT O00 bg os het 
CCCOUNTI=0} %140115796000 
TF CONTROL WORDS(0J=0 THEN %140115800000 
UNTROL WORD * A + 0 S81000 ~_ 
"COMPILE “, %140115820000 
"TO ", %149115830000 
"CON DEN" B4Q000 hen 
WFILE "s %140115850000 
"SIMPL ", 4140115860000 
We ARH " ¥140 870000  _—- sit Scud doh oe 
"DISK "» #140115880000 
Sees ", ¥140115890000 
WH - " ¢ 900000  — 
mDATA. ", %190115910000 
"SERIAL "s ) a %140115919000 
WEND " : eh : ¥140 9 20 a 
"EXECUTE ", *140115921000 
"SYNTAX "%, pte pacee naa 
"LIBRARY * = aoe 2 9 00 
"CONF ", fh ge SR SG Pe , a - SY UIETCLTERUR 
"LINE ,%16- a Eee oe a 8140115921400 
"STACK Wy SEL by UL EES Ga ghee a ie ie as oe ar 8140135921500 


e @ 
"WALT ",%18 %140115921600 
@ "DISPLAY "3%19 %140115921700 e 
3 Oe00D)s pe EVO ATS GOO OO eto co ek 
If D#EMPTY THEN GO RETURNI ELSE %140115940000 
@ IF D212 THEN CONTROLCARU?STRUE ELSE %140115950000 2|@ 
IF NOT CCMPL8=0=0) THEN GOPERROR(O)S 2 HONE5950100 3 
CLEARCCCS2200);3 140115950150 4 
@ CLEANMOVEC INPUTBUFFEKsCCS)3 %140115950300 |® 
LABELEQUATECCODEFILEsJUNKe@19"4 5 _%140315950400 6 
IF CNTLESCODEFILE sMFID)e(42t6) =" " THEN %140115950450 7 
@ CODEFILE MF ID? O&NTIL1246136) %140115950500 1/0 
foe ss of sateen BAAD TL TSO S085 Oe on cxctcn on ates ice 8 
IF REALCBLC(NT1) EGV BL(O))SREAL(NUT FALSE) THEN %140115950560 10 
@ IF CNTISSCODEFILEsFID),Ca2tol=" " THEN 4140115950565 @ 
CODEFILEsFIDS=OQNTiL12:6:36) i 5950570. 12 
ELSE . %140115950575 . s 
 ) BEGIN COUNTI273 GUPERROR(35)3 END %140115950580 @ 
sas he a eo Nel ce ws, ere ee 59590585... | 18 
BEGIN COUNT$=?3 GUPERROR(35)4 ENO? 2140115950000 led 
e CODEF ILE sAREAS!=REAL(CMPL)3 4140115950650 /@ 
OD e AREA “iz HEN 10 ; 13 > HL BY £1 © © Lee ee na a oe, Hb 
. PMFID§=TESTBUFFERIOI: PFID@STESTBUFFERLI]3 Tia0iiees07s6 "e 
@» IF CMPL THEN : %140115950760 ae 
¥ 0 PO PGS 68s le i ee es te, A ee a 21 
IF REALCBLCPFID) EQV BLC" ")JEREALCNUT FALSE) THEN 4140115950770 2 
@» BEGIN %140115950773 23@ 
2 a = Ct A a ae ee rere 24 
Ps PTCH MFID!$=03 %140415950777 2 
@- END ELSE 140115950779 | @ 
g P ! ’ 2 
ae PTCHsMFIDS=PMFIDS PTCHFIDIFPFIDS K140115950785 
5 @} ENDS %140115950790 oy @ 
3 __END3 210 0°) ee ea a eee ia 
Q WHILE NOT SAFESCAN DQ %140115950800 31 
x ) BEGIN %140115950900 | @ 
Wi SHROCCONTROLWORDS 914 140115951000. oe 3 
CONF ssCONF OR wW=2 OR w=43s Z2CONFIDENCE OR CONF %¥140115951100 
@ LIBONLYt=LIBONLY UR W213s %SYNTAX 140115951200 a @ 
: —SAVETOGI=SAVETOG UR W=t4s S%LIBRARY 09159513900 tae 
p ENDS %140115951400 | | 37 
@ » PATCHSWITCHSSREAL(CSWITCHS0)3 %140115951500 @ 
‘ A sEMP We - 400 sor 39 
IF CMPL THEN %140115951700 ‘0 
® BEGIN %140115951800 |@ 
HEADER(0]2=03 %140115951900 43 
MOVE (29 »HEADERsHEADER[1))3 %140115952000 | ‘ 
® HEADERES3#=13 4140115952100 | 4@ 
HEADERL 21)2=MAXLEVELS@=43 %140115952150 = As 
: HEADER( 28)!="ON| INE "3 %140115952160 
r) HEADERL29] t="TESTAPE"S %$140115952170 1S 
ND %140115952200 ; 
ELSE READCCODEFILE,30-HEADERL*))3 | %140115952300 4s 
Or LEE oe | %140116000000 1®@ 
__Ip SPECIALCHR NEQ "3" THEN %140116000050 _ 51 
52 DO UNTIL SAFESCANS #1401416000100 5 
ep IF SPECIALCHR®"3" THEN GO LE13 %140116000500 s1@ 
ACCUMULATOR t=CORE ADDR ( JUNKBUFFER) 3 140116001000, _ | 5 
“YF CCCOUNTS19 THEN CCCOUNT?=03 *140116002000 : ba 
Or READCINFILE? 10+ TNPUTBUFFERE*1)3 %140116010000 1 @ 
ue RDIMCRDSS %140116010500 | ": ; 
ro 


@ 
CLEANMOVE CINPUTBUFFFR»sCCSECCCCOUNTS=CCCOUNT+12*10])3 %140116011000 
FIRSTSCANS=LASTSCAN!=INP3 %#140116020000 
ANC™29 "ws 90 : Q aah tebe atta 
1 Lets 4140116031000 
@ CCSCAN(C"220209D)3 %¥140116040000 
3 IF D9 OR Dik THEN GO XIT ELSE OE COKOL00N— its 
4 IF D=3 THEN &"FILE" 140116040200 
@|: BEGIN %140116040300 
6 SCA ™@220209s0)3 ; 6 O° 0 0 aaeanc eare eee ee 
7 IF D#16 THEN %140416040500 
@|: BEGIN %140116040600 
2 AK en 320): ee eee aera 
No IF SAFESCAN THEN GO LE ELSE 140116040500 
ee" IF Dt=wROCGOMPAREBUFFs22) 15S 47 TREN %140116041000 
1 2| . qi : 
y HEADER(4) CCF IJ8=p9473 %140416041200 
@. SOPtsFALSE; %140116041250 
*6 acta F_ SAFES R GEQ 0 TH ee eee 
hs IF DSSTESTBUFFER[O] LE@ 132 THEN 140116041400 
@v HEADER(4).0SF1J%=3(0+7) NIV as %140116041500 
18 
sa END ELSE %140116041700 
@ i IF D NEQ 7 THEN GOPERROR(33)3 %140116041800 
; : APE QLA Nee ITRt y ( SUSO000 oo 
P CCSCAN(C 3955 39, UUNK)5 %140116050300 
OR FIRSTSCANS=LASTSCAN} 140110050310 
g F_Ot=F ‘ FILE 169050320 00 
= f GOPERROR(33) ELSE %140116050330 
:@ pe IF D GTR 2 THEN GOPERROR( 34) ELSE %1404116050340 
3 27 G pits * cee EO osha os ot 
8 ps ELSE MOVE(2sTESTBUFFERSHEADERL 2H) )3 %4140116050360 
20 ps IF SAFESCAN THEN GOPERROR(34) ELSE %140116050400 
po IF _UNIT¢=WRDOCUNITS£Os0),16) LSS 0 THEN GOPERRCK(33) 140116050500, peer ea ee a ee 
ELSE GO Les 140116050600 
Or END- ELSE %140116050700 
IF De17 THEN - 2140316050800) 
BEGIN %#140116050900 
] CCSCAN(C35"= "5 33, JUNK)3 %140116051000 
IF_SAFESCAN THEN GOPERROR(34) ELSE %140116051400 dense tt 
IF COUNT GEQ@ 0 THEN %140116051200 
@ GOPERROR(30) %140116051300 
3 § ¥14 605 O0 ia oe _ 
HEADERL21]%= MINCLO22»MAX(MAXLEVELS “le %140116051500 
rd] TESTBUFFERCO)) )@REALCCMPL ICL 2472193 %140116051600 
e ; 4 605 010 aoe Sar er ean 
END 140116051800 
@ } ELSE %140116051900 
IF 0818 THEN &WAIT _.#140116052000 
é BEGIN %140116052100 
rd] CCSCANC 39 "2% 335 JUNK)3 %140116052200 
IF SAFESCAN THEA GOPERROR( 34)3 %140316052300 
IF COUNT GEQ 0 THEN GOPERROR(30)3 %140116052400 
@} DELAY SSHEADER( 22) teMINC 511+ TESTBUFFERLO})3 %¥$40116052500 
GO Les %140116052550 
END %140116052600 
@: ELSE %140116052700 
IF 0219 THEN S%DISPLAY. %140116052900 - 
@ CCSCANC 349533 ,9UNK)3 *#1401160531400 


IF SARESCAN THEN GOPERROR( 34)3 


_%140416053200 
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5 3, 3, *. zy 7 2 5 3 
> , > os 


TS 


aD Gt a Gt 
> © & 


5 = S BBs Ss 


IF Dt=WROCCOMPAREBUFFL23)23) LSS O THEN GOPERRURC33)3 


HEADERCSIISREALCOCTL =D NEQ@ 2)+2x 


A B $=D= 


GO LES 
END 


IF D NEQ 4 TREN GOFERROR(30)3 


* Ly 
CCSCAN( 39 "%3%5 335 UUNK)3 
IF SAFESCAN THEN GOPERROR( 34) ELSE 
t=WROC COMP ARE 715 58 Q OR ps 
GOPERROR(8)3 
LSWITCHS303 
r) . 
END ELSE 
GOPERROR(C33) ELSE 
i\ ) AN 42%" A 
CASE D-5 OF 
BEGIN 


ACARD 
LABELEQUATEC(PTCH» PATCHSWITCHeis10)3 
IF PATCHSWITCHSO0 THEN 
 GESCANC™2202090)3 
PATenen TIGHT SRERL CORO 4) 
NED 


IF CSWIT CHO THEN PATCHSWITGHIF@LD 


UR p34 THEN a4) 


——_—-%140116090700 ... 


4140116133000. 
%140116134000 


#140110053300 
%140116053400 
<310 > Re Sas 0 1 © Une ae 
%140116053550 
4140116053600 
00 


%140116060000 


CCSCAN(C320533°D)3 %140116070000 

eae SO COC AINA ic Op Om nr ite ee ee OT BO BOO On i ee 
IF 0 LSS 5 OR D GTR 8 THEN %140116090000 
IF 0216 THEN ALINE %140116090100 


eee eae er ee naar emeoars © U1! 6 ROM tA’) ld 6 16 Eeaeeenae ee ones 


%140116090300 
4140116090400 


16090500_ 
%140116090510 
%140116090600 
%140116090800 ——— 
%140116099000 


BE OOIG 0 hae oe te peek a a 


%140116110000 
%140116120000 


0 6 0000 
4140116131000 
4140116132000 


%140116135000 


Q * HOOO 


*140116136100 


END} %140116137000 
LABELEQUA DSK» JUNKe"200)5 SDISK 4( 6140000 

BEGIN %140116150000 
LABELEQUATECTAPE® JUNK» "270 )3 140116150100 

TAPESTYPES=IF SAFESCAN OR Dt swRDCCONTROLWORDSs17) #340116150200 = 
LSS 0 THEN 3 ELSE 140116150300 

IF D26 OR 0510 THEN 12 ELSE 33 ¥140116150400 

END; %140116150500 

BEGIN #1401416151000 


LABELEQUATECNEWsNEWSWITCH»s157)3 ZNEWTAPE 
NEW, TYPESeIF NEWSWITCH®1 THEN 3 ELSE 123 


END: 
ENDs 
END3 
GO LEs 


acK¢CCS(#j)3 
END$ 


XIT? IF CMPL AND D#*11 AND PATCHSWITCH=0 THEN PATCHSWITChI EL 3 


PROCEOURE RELEASE THEUNITCUNIT) 3 VALUE UNITS INTEGER UNITS 


BEGIN 

IF _UNITSCL+UNIT] LSS 0 THEN 
LOCKCTESTAPEs RELEASE )3 

UNITSCISUNTTIaCis1)is05 

ENDS 


INTEGER STREAM PROCEQURE UNITNAMECU)S 


%#140116160000 
%140116161000 
%140116166000 
%140116170000 
%140116180000 
4140116190000 
%140116200000 
%140116210000 
%$140116220000 


III I UII IOI GIGI OIC IOI III IOI a tO oi io toto ot te 16230000 
9 ee ae dee ee ae ee oe tte EO OI IOI IOI Oi a id io doko 6240000 


16250000 
16260000 
16270000 
16280000 
16300000 
63 0000 _ 


BIO UI IORI IO IRI IGIGIGIDII OIG RI IOI IG IGG III iinet 16320000 


16330000 
6340000 
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oon mW TF FB WKH = 


16 


ne 
oo 


51 


i sr A en st eo - 


Slt=Us DIS=L0C UNITNAMES LLteDl+53 OS%=3 CHR 16350000 
END 16360000 ® 
Baka KKK Kk a Kk WO KKK KK ee KK KEKE KEK RK KEK EK KKK ke ke ey 1.00.0. Ore oc oe es 
DEFINE UNAMECUNAME1 SUNITNAMECUNITSLOsUNAMELI) #3 16380000 ' 
EERE ES SSCS EASE UN SORES REE OS eee RASS ROT Ee Se eae eRe See Nee OHIO U0G 1@ 
BOR AN FRO oneis: SF THE UA > K H O546200000 9 ooo 3 
VALUE LUNSKEYS % 140516310000 4 
INTEGER LUN3 %140516520000 |@ 
BOOLEAN KEY? 6 O00 nict, tor no es ee oe 6 
BEGIN. . 16540000 ‘ 
COMMENT OBTAINS TAPE UNIT "LUN". IF KEY IS %140516540005 10 
CTR ATTACHES UNIT THRU USF UF ~ TYPE gw SuOOiO Batlle eS Mls oe ; 2 
5 FILE. OTHERWISE» LOOKS FOR FILE WITH 16540015 be 
NAVE HEADERL2S]/HEADERL2¥] ANU CHECKS 16540020 | 1@ 
NTER my Ot ot ’ 0% Q 12 
$SET OMITSOMITINTERPRETER 16540026 bi 
FORMAT NOTESTAPEC* TEST TAPE ON WRONG UNITC%» 16550000 1@ 
pSiice oat lat ON win te a a ae ly tae er eS or ER UA ce wis ie ht, ba 
Mem); 16560000 ; by 
INTEGER Usutel3 1670000 "1@ 
BOOLEAN SECCNDTIMES p1405162971000 ii 
LABEL XITsePARsWwPARSAXLS 16580000 bi 
IF USSUNITSC1*LUN] LSS 0 THEN GO XIT ELSE %140516590000 1@ 
LF HEN BS OU COQ e022 a) leet oa Ad a 
BEGIN 16610000 F 
FILL TESTAPE WITH Oo" sun AME CL UN) LOS 30E1LA] 20—9%,0,553 16620000 231@ 
= WRITECTESTAPE) LuPARI uPAR IS 63 iebghieiie es cane a 
END ELSE 16640000 P 
WHILE TRUE ro | | 16641000 21@ 
4. N : HO5000C pee mee Sh Fi ae a en NE te 2 
FILL TESTAPE WIIR HEKUERL ESI eh EACEKL 29); 16661000 ee 
READCTESTAPE)CPARiPand; 166070600 21@ 
PAR: F t=TUPIODCTESTAPE?) «£2: N f N AOH0000 BE A Ne a aa et, te 
BEGIN 46690000 | 
11503 %140516700000 1@ 
IL $ ® ]) NEQ Ui DO [ssrei3 41405167 00 Reese aR ee, cee td 
IF SECONOTIME THEN %140516700200 ; 
BEGIN %140516700300 1@ 
UNI TSS LUNESI5 %140516700400 a get a ee ai 
UTOG?=TRUES — -%140516700500 i. 
GO WPARS %140516700600 4@ 
ENDS %140516700700 — 3s 
CLOSECTESTAPE*RELEASE)5 140516701000 > 
AXL3 16702100 i@ 
WHITECCFILEsNOTESTAPESUNAMEC] )»UNAMECLUN) D3 %140516710000 ee ba 
IF WteSKIPSTOPOROKCTRUEsFALSE)*2 THEN . eepdovet (O20 ‘ 
BEGIN GETHEUNITtSTRUESGO XITSENDS ! 16740300 : @ 
_If Ws4 THEN GO AXL3 16740400 = i 
SECONDTIME32=TRUES 4140516710500 : 
END ELSE GO WPAR 16740000 |@ 
ND 6750000 ol 
WPARE : : 16760000 a Pe . 49 
TAPEDATEt@IF KEY THEN TIMECO) ELSE TESTAPE*DATES 46760100 | :. po ® 
OKBUSINESS(COREADDRCPRNISLUNICTF I 41023LCTSFI); %140516760200 oe sy 
PRNt=PRN«(30%18)3 . 16760300 5 
REWINDCTESTAPE)3 16770000 j@ 
TRANS £30 : 6780000 : 54 
UNITSCUsLUNI,Citt} teas ee 28, ~~ "¥4.40516790000 | EN SEA if 
KITH oa | aes 16800000 Reon a «@ 
Pop LOM : : : vate = ‘ ass ee eee ok a ee =. a 680000 oe: Zh ; es ha y 
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5 n n . a =. x. 


ze Fs R 
= i 
a 


END; 16800050 
Foe de ie TIT II OIG TOI IOI II OI III I Rio into 16800100 
BOOLEAN PROCEDUR ONEPARTS VO UPAA COTA 0oc <5 Jheele e 
BEGIN %$150116600120 
LABEL XITsZONELCOPsE3 INTEGER £ONEF %150116800130 
—ZONEWOROtSO, 0 4150116800140. eee: 
ZONELOOP? 4150116800150 
SCANS IF COUNT GEG O THEN KEGIN ERRKORi=4e3GU ESEND; 150116800160 
—_1E_ZONESSTESTBUFFER[O]°] < 0 UN AONE > 2 THEW dS OTT 6800170 
BEGIN ERROR&2#433G60 ESEND; %150116800180 
TWOSETCZONEsZONEWURDISSCANSIF SPECIALCHR ="s" THEN GO ZONELOOPS 16800490 
oe 10 er, 2 Ss Bi Dee eneen ieee eee eee eT. ee area ceca neee Ki! 1h Bi -h= 9) 0-20 |: eee ere nr ee 
Es ZONEPART?sTRUES , 2150116800210 
XIT3 ENDS 2150116800220 
IIIT III III IU II II TO i ii tice et t§ 168002300 0 bho as 
BOOLEAN PROCEDURE: RANGEFINDERS %1501166800240 
BEGIN 16800300 
__.__.___ COMMENT HANDLES COMPONENT TYPE D1Sk ADDRESS RANGE 16800355 0 
DESCRIPTIUNS (CEeGer EU 3 SY S DISK 3 ZONE 2) 16800360 
3 16800365 
INTEGER EUs SUsSulsDISKe O01 SK1 > ZONES 16800400. — 
DEFINE GOERROR(GOERRURI)SBEGIN ERROR? eGQERRORIs GO EFENDAS 16800500 
LABEL EsZ2UNEL*Z0NELOOPexXITs ; 16800600 
aa a eS sr Se 8 O07 00 tt Sota 
DISKTEST2=TRULS 16800750 
SCAN; SCAN EU NUMBER 16800800 
eee Seas oF COUNT GEG 0 TREN iT RUM Bp Sines = 5.9K), 1 0} ean ene nen ea oe 
GOERROR(36)3 16891000 
IF EUtSTESTAUFFERLO] GTR 19 THEN GCERRURC37)3 16801100 
IF OKBTOGt=FU GTR 9 THEN 4140716801140 
BEGIN 2140716801120 
UNIT8=49s TINUS=123 4140716801130 
ENO ELSE 140716801140 == 
BEGIN 140716801450 
UNITS#103 TINUS=63 4140716601160 
Ses Ng Ee a OC Olga teat atc a ta 
IF TESTADORESSCEUSEEUxLOUCU00) THEN GUERRCR(37)3 16801200 
DOKTYPEPs1+CISnhIGCTESTBUFFER, 8C, 16801300 
ED gee ea OO Oe ee eee 
% 16801500 
SCANS IF SPFCIALCHR="3" THEN SCAN; 16801600 
Ao () Ot 
IF wORD=29 THEN ASTYURAGE UNIT 16801800 
BEGIN 16801900 
SCANS 6801950 
IF COUNT GEQ@ O THEN GUERROR(38)3 — 16802000 
IF SUt=TESTBUFFERC OI LSS 41 OR SU GTR 3 THEN 16802100 
RRORC39)3 6802200 
IF TESTAUDRESSCEU+(CSU@1)x4O0000xDKTYPE)) THEN 16602300 
GCERROR(39)3 16802400 
% 16802500 
SCAN} IF SPECIALCHR="=" TIMER : 16802600 
BEGIN 16802700 
SCANS | a a 16802800 | To 
IF COUNT GEQ@ O THEN GOERRORCIB)3 16802900 
IF SUZfSTESTBUFFEREIC) LSS 1 UR SU1 GTR 5 THEN 16803000 
GUERROK(39)¢ 16803100 | 7 2 
IF. TESTADDRESSCEU+(C SUI" 1) x4 0000xDKTYPE)) THEN 16803200 
= GOERRORC39)5 " 16803300 
J OLSKtsis OLSKp teas Ess oe 6803310 
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on ~ wm OF WH = 


a 
a 


SCANs GO ZUNELS 168603400 
ENDS 16803500 
t= , 
% ; 16803700 
IF SPECIALCHReE"s" THEN SCAN; 16803800 
a ET eo ae. 
IF WORD=30 THEN AUISK 16804000 
BEGIN 16804100 
AN? B Diente ft = 
IF COUNT GEQ QO THEN GOCERROR(40)3 16804300 
IF VISKSSTESTBUFFERCO] LSS 1 GR DISK GTR 4 THEN 16804400 
shite ee el GUE RR OR CME en a a tet OU GOO 5 ens = 
SCAN} 16804600 
IF SPECIALCHRE"@" THEN 16804700 
se SF te nea tp Soto ENG NY Sl yet aos ere a 2 gee ee ces a a eee A OMB OO Mica eee xe) 
SCANS 16804900 
IF ee GEG 0 Wan GOEKROR(40)3 16605000 
ee eT es eee s=TES R R K R Vo 84 ee 
THEN AIS CUTER ES 16805200 
SCANS 16805300 
Bie ot a enced ee GRO S UO Oe tee oe 
ELSE DISKit#D1Sks 16805500 
END 16805600 
fascte a DS a ee ee PO oes iyi Bobi ra etl 2 
BEGIN 16805800 
DiISK%s1;3 16805900 : 
ae ee fa AN I a a Ss ee re BO ae me alee Ee 
ENDS 16806100 
END 16806200 
Si ae aaa Se a Ne OOO eee rn, 
BEGIN 16806400 
SU%a13 16806500 
_CWAILE NOT BOOLEANCOISKIOCOUTEUFFER, "OQ, 1 46806600 
EU+SU1x4O000OXDKTYPE) »f27811]) DO SULsSU1413 16806700 
OISK%s13 DISK13502 16806750 
ecg ee a A EN CSD Oe ee ee BOOT OO oe tate 
END 16806800 
ZONEL? 16806900 
IF SP ALCHRS"3" THEN SCANS 6807000 = 
% 16807100 
IF wORDs31 THEN IF. ZONEPART TREN GO E3 4150116807200 
‘ 464808400 
IF SPECIALCHRS"3" THEN SCAN} 16808500 
% 16808600 
{6808800 0 
aEF: NTLPREUS (CSUM 1x GOOOOXDKTYPE + (DISK™1)x10000 16808900 
GTR ENDADOR OR NTI LSS BEGINADOR OR 16809000 
REG INADDREO THEN FNDADDREseip UU BOOROO 
BEGINADORS=A\T13 16809200 
IF NTLPeEUeC CSUL41)x4Q000xDK TYPE )+(OLSK1x10000) 16809300 
GTR_EN R_ THEN AREACLEAREDS=F A ; 809400 
SEGSte(ENBADOR#aNT1 )“BEGINADORG 13 #150116809500 
x oe : ao 16809600 
F_ FALSE. TH oa 6809700 etree 
E% 16809800 
RANGEFINDERt=TRUES 16809900 
XIT! END} 16810000 ee 
AINE IIIEI I TOIISIEISIUE III ISUIOIOIO UID IUIIIOIIE DOGO In polo i aainintticaiisen itn 16810100 
BOOLEAN PROCEDURE. ee Ncinnidl 7 16820000 
BEGIN: & . ea ee ee ee 6830000 


@ 
COMMENT TOGETHER WITH TESTSCREDULER AND RANGEFINDERS 16830005 
CONFSCAN HANOLES “CONFIDENCE” TYPE MAINTENANCE 16830010 4d 
DEFINE COMMENTSCAN2BEGIN 16855000 1 
WHILE SPECIALCHR NEG "#" DO SCANS 16856000 1 
ESCA 52009 3 
END&3 16858000 4 
DEFINE GOERROR(GUERROR1)= 16859000 /@ 
BEGIN ERNORI=GGERROK14 GOES END¥s tO 6 
LABEL ADDRSCANs 16861000 | ? 
Bp 16862000 1@ 
SCHEDULES 16864000 10 
EADDR, 16865000 /@ 
san“ nme '¢-T'Y'%, 17, 12 
Es 16867000 "3 
De 16868000 W@ 
a eee) eee ee en ae ee __ 16869000 MR fda tes 15 
P» 16870000 16 
EOF» 16871000 7/@ 
ENDSCANs nn tOS?Z2000 rd a SE a Mk HB 
FILLTRAN> 16873000 "9 
XIT3 16874000 21 @ 
BOOLEAN TOGLEsREVRsOPeXLATES | 0000 garsong 21 
INTEGER SEL10 13 16876000 “e 
REAL IODs VUNKS 16877000 reat 
Be ROE TRU fg nz7so0 ape Ngee Sto Sac hea ho eget ony 2d 
ZONEWORDI273 16877600 25 
TAPETESTS&=DISKTEST3= 16877700 | @ 
” 12 
ca ; Senne 0 217, 1- , 
IF REVR?@REV THEN GO ky; 16879000 1@ 
Bt 16880000 ie 
eS tind See —REVR ime AL Sg ja 000.. a be alee aera tt 
SCANS . 16882000 - 
FILL CODEFILE WITH "OTPECNE", "MAINT "3 16882500 32 
ote ee CODEFILE,AREASings 000 CUT oe eee er ee ee 
CODEFILEsAREASIZE?s0; 16882700 - 
IF SPECIALCHRS"=" THEN 16883000 1 
ee | Sameera 2-11 10 [cc RnR ee ee a 36 
LABELE QUATER(COUEFILEs JUNK» ~10—2s TESTBUFFER)S 16885000 37 
IF CNTLSSCODEFILESMFID). C4226)" © THEN 16885100 a @ 
ELSE 16885300 | ‘ 
BEGIN COUNT!=73 GOERRORC35)3 END 16885400 «|@ 
SCANS | 16886000 __ 49 
END} | 16887000 : ‘ 
PMFIOSe CODEFILEMFIOS 16887100 a @ 
es PFID%= CODEFILEFIDs 16887200 a 45 
IF SPECIALCHR NEQ "(" THEN GUERROR(LDS 16886000 ‘6 
SCAN: 16889000 1 @] 
IF WORD=3 THENXS"BEGIN" | 16890000 —s r 
BEGIN DISKTESTISTOGLETSTRUEs SCANS END ELSE | 16891000 | 49 
IF WORDR28 THEN EU Re 168941100 | | «l @ 
F_RANGEFINDER THEN GO ¢ Z%ERROR 16891200 ee es eee ee is 
ELSE GO CALLSCHEDULE | %140716891300 5 
ELSE 16891400 =| @ 
IF TAPETEST#*COUNT GIK O THEN GO GALLSCHEDULE ELSE 16692000) i 
IF NOT DISKTEST@SCOUNT LSS 0 THEN GOERROR(2)3 | 16893000 65 


LF.-DKETOGHS SELIISTESTBUFFERCO] GEQ 10000000 THEN  %140716893100 | | @ 
: een : eee %140716893200 Pe tees : ; : 


BEGIN 
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@ © 
UNIT&s193 TINUS=123 4140716893300 
@ END ELSE %140716893400 @ 
140716899500 | as 
\ UNIT#s18s TINUIS6; %140716893600 
@ END3 %140716893700 
3 F R ENDADDOR OR SEI SS BEGINADDR OR R1407146894000  =—-—s——s— 
4 BEGINADDR= O THEN %140716895000 
eo; BEGIN 16896000 
6 T ADDRESS (CBEGINADODR SESE \ GOERROR ; F897000 
: ENDADDRts=13.. 16898000 
@: END ELSE BEGINADDRSSSEL 13 16899000 
3 : bet fe tl) ADELA iC) AN 72 eect eee PAROS | 46900000 
ro SCANG 16901000 
@; IF SPECIALCHR NEQ@ "%" THEN GUERRUR(3)3 16902000 
is i IN ROO ION OE 
y IF COUNT GEG O THEN GOERRORC2) 16904000 
@ B ELSE SEL1tsTESTAUFFERLOJ+BEGINADOKAI 5 16905000 
he IF SEL1 GTR ENDADDRK UR SEL1 LSS 16907000 
@ i BEGINADDR OR ENDADDR="1 THEN 16908000 
° AREACLEAREDI=SFALSE3 16910000 
eo,” IF TESTADORESSCENDADDR#=SEL12 OR 16911000 
1 o 
——____________ENDADDR LSS BEGINADOR ‘9g dt pp 
ENDADOR DIV 1000000 NEQ BEGINADOR DIV 1000000 16913000 
@ » : THEN GOERROR(25)4 ziSO TET 18008 
‘ END ELSE ENDADDRE=SELRS Bae afl Aenea Yen ao 
; SEGS? SENDADDR*BEGINADURGL3 . %150116916100 
@ a GO SCHEDULES , | 16917000 
pe TOGLEt=FALSE3 16919000 
O» SCANS 16920000 
BO ° = wet oe f, 009. Resets tok Lats 
s IF WORD NEQ. 4 THEN GOERRORC4 3%" END® 16922000 
6» SCANS : 16923000 
is SELIS=S=TESTBUFFERLOJs 16925000 
@* GO EADDRS 16926000 
a SCHEDULE 3 6927000 Oe a Ase so 
iw SCANS © ; 16928000 
@» IF SPECIALCHR®"3" THEN SCAN; 16929000 
ps CALLSCH : 930000 
IF TAPETEST THEN 16930100 
Ob BEGIN 16930200 
a2 READCCUDEFILE» 30>HEADERL #]) )3 16930300, 
a3 NUMBEROFTESTS##HEADERLS 13 - 16930400 
@ + END 16930500 
ELSE NUMBEROF TES? 51 2NUMBEROF YESKTESTSS 6930600 te 
6 SELL&203 TESTMASK3=ROMASK L=NQMASK S2FALSES %#150116930700 
ee IF WiswORDsS THEN %SCHEDULE 16932000 
IF TESTSCHEDULER(SE HEN GO | 6933000 __ 
ELSE IF SELL®0 THEN GOERROR(15) 46933050 
@}: ELSE TESTARRAYCGELLIIREAL (NOT: FALSE) 16933100 
* axe 
IF WORD=2? THEN XTESTAPE 16934000 
@ : BEGIN 16935000 
5 NO AP HE WOERR a 3 6936000 _ 
53} TESTARRAY£O1¥817 eee a8 a 16937000 
@ SCANS 16938000 
 SPECIALCHR | NEO yey EN. @DERROR( GIS 6939000. 
 ) 
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Ka 3 
; es 3 : SS 8 8 5 


TEs 


END ELSE 


#150116940000 


IF WORD®31 THEN %2ZCNE %150116940010 
ae als ah Sta ses 4 9 secon 
IF NOT OISKTEST THEN GOERROR(5)3 %4150116940030 
; IF ZONEPART THEN GO E3 %150116940040 
i ea uo AN SP LCHRa"3" SCA : Les 16940050. 0000 
END ELSE GO E3 %150116940060 


IF DISKTEST THEN 


4149716940100 
a aN a a ee aera OT LO OO 0s ee se 


4140716940800. 0 2 2. 


eemeeneaewies We. <i 10 1 0 Sa eeeeeeeee aeee 


sect OP MBO. oe 


SCAN} %140716940300 
IF NTLPSWROCUNITS£0216)]52) L355 0 THEN GO DL3 4140716940400 
3 K { DERRORC4B)s 4140716940500 
UNIT&S1B+NT 13 4140716940600 
TINUS2646xNTLG %¥140716940700 
if TAPETEST THEN 16941000 
BEGIN 16942000 
a as —...... 46943000 
IF UNITtSWROCUNITS(C20)]216) LSS QO THEN 16945000 
IF HEADERCLJ GTR O THEN 16946000 
SEL ae eI Noe NTT meee eee SH OM ciel Ck C2? Dee ae ee 16946100 0 
ELSE 16946200 
BEGIN 16946300 
GQ Oi: 16946500 
ENDS 16946600 
anita ew ND poe ot 
Dt 16948000 
SCAN; 16949000 
_ Ou! 16950000. 
IF REV THEN GO Rvs 16951000 
IF SPECIALCHRs"4" THEN GO ENDSCAN ELSE 16952000 
IF _SPECTALCHRS"2" THEN COMMEATSCAN ELSE 953000 
IF SPECIALCHRE"3" THEN GO D ELSE 16954000 
RVt 16955000 
Beet IF SELL:22=wORD GEQ 24 AND SELI LEG 26 THEN 16956000 
BEGIN 16957000 
IF XLATE THEN GOERROR(6) ELSE XLATEtsTRUEs 16958000 
See CASE OSE ee OR oe 
BEGIN 16960000 
BEGIN OCTLI*TRUES BCLESFALSES ENDS 16961000 
BCLIsOUCTLisTRUFI*BC 6962000 
BCLS=UCTLIsFALSESKINT 16963000 
END; f 16964000 
GO D3 16965000 
END ELSE 16966000 
IF WORDS6 THENZ "OUTPUT" 16967000 
eee: BEGIN. : ; 6968000 
IF OP THEN GOERRURC7) ELSE OF 2 sTRUES 16969000 
SCANS 16970000 
IF WORDS17 THEN SCANS "RESULT" 16971000 
IF WORDS? TREN SCANJ2"0N 16972000 
IF SELIIsWORD LSS 18 OR SELL GTR 22 THEN 16973000 
R168" LP" ; 16974000 
%19="SPQ" 16975000 
R20s"PBO" 16976000 
213"pat" 16977000 
S228" THK" 16978000 
IF SEL1 16 THEN 60 P ELSE 146979000 
_-GOERROR(8) ELSE 16980000 


FINDOUTPUTCSEL1I"18,0)3 


IF OUTSWITCH=1 AND CSWITCH NEG QO THEN GUPERROR(Q)3 
: es 8 ea Sree BT OOO er prcee 2, «iat 


mS = WO 


oonw~ mn TH F&F WH = 
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5 z 8 0 ry 5 7 ° z * = S 53 5 ~ 3 aot 5 
on 5 & ra Oo = z oS 


ah Mbetenhag carat Leite bate 


164781000 
16986200 


IF SEL1Is16 THEN 16988000 
P3 16989000 
BEGIN Py eeiirucs GO Dis ENDS 16991000 
END3 16992000 
F H POA O 0 i ote 
BEGIN 16994000 
REVisFALSE3 16993000 
OUNTSO THEN 96000 0 
IF SOPsSSSPECTALCHR="#" THEN GO READIT 16996100 
ELSE SCANS 16996200 
2 t=wORD = 1 KEN ELS _— OIYP OOO LL oe ee 
If SOPSsSPECIALCHRS"S" THEN GO READIT3 16997100 
ENDS 16998000 
R i=s26 R 23 ee ee et 
17000000 
BEGINADORSSENDADDRi e913 17901000 
cosa IN a NS a i oe POO OOO os es 
GO XIT3 17003000 
ENDSCANS 17004000 
OPits a’ 17004500 
IF NOT OP THEN FINDOUTPUTCQUTSWITCH?Q)3 17005000 
IF XLATE THEN XLATE&=FALSE ELSE 17006000 
—____________IF TAPETEST OR NOT DISKTEST THEN HOO 
- BEGIN 179006200 
OcTLteTRUEs 17006300 
“ BCLESFALSES O06 _ ” 
END ELSE BCL3#OCTL:=TRUES 17006500 
SAVINGS=FALSES 17006600 
F N vy ry LJ H N OO7000 
BEGIN 17008000 
DONESCANtSTRUES 17909000 
SCAN3 17010000 = 
IF WORD=14 THEN 17911000 
BEGIN CLOSEC(MAIN] 23 DONETOGS8STRUES ENDS 17012000 
DONESCA taFA SE3 17043000 
END3 17014000 
IF TAPETEST THEN 17016000 
BEGIN a 017000 eee, 
IF GETHEUNITCUNITsTESTARRAY(G).,£27%36)20) THEN 17018000 
GO TO IF NONETOG THEN ALLDONE ELSE RETURNS 17019000 
F RAN3 Q OO FF s 
END ELSE IF NOT DISKTEST THEN GO FILL TRANS 17921000 
IF SO TEE SEEN Fete UCTES  eUr CER eT UBC NADO Ryne C3081) 17921100 
A Oj RC a9’ & 0.0 Spd Males Do Nt haat coat 
SRT NPE SLUT C2eti)3 %140717022000 
IF NOY AREACLEARED THEN 17923000 
OR [Ons P NT 4 po ; 024000 Caer 
IF. “TWOTCLODs TESTMASK GR RUMASK) THEN %150117025000 
BEGIN CLEARAREAs GO FILL TRANS ENDS... 17026000 
IF BCL AND TRANSLATEBUFFER(CQO)]s0 THEN 17928000 
FILLXLATEBUFFERS 17929000 
DEB 039100 
WRITE COUTF Te <"TESTARRAYE#I15"%,//>)3. 17939200 
179039300 


9HOO 
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+ RS RS x 3 = ‘) 3 RS = 


a a 


MOVEANDWRITECTRUE*6O4oF ALSESOUTF Te COREADDR(TESTARRAY) )3 


17939500 


BCLS*BCOLEANCNT1)2 OCTL2=BOULEAN(NI2)3 17039600 e 
i WK “If j 17039700 
$POP OMIT 17039800 ' 
XTT! END OF CONFSCANS 17040000 1@ 
Yuws * ne + eee tee ee ee eee 0 ot Es ie ate 3 
“PROCEDURE SPOUTCCS3- 17040200 a 
BEGIN 17040300 |@ 
17040400 6 
COMMENT PRINTS CONFIDENCE MAINT cCS FROM JUNKBUFFERS 17040500 ? 
17040600 1@ 
INTEGER STREAM PROCEDURE TRUNCATE(BUFFER)S VALUE BUFFERS 417040700  —__ 9 
BEGIN 17040800 19 
LOCAL JUNK» BLANKS LABEL Ls 17040900 /@ 
a —A7OM1ONOO Oo is 
SIlssLOC. BUFFERS SKIP S83 IF SB THEN 17041100 13 
BEGIN TALLY S813 BLANK SST ALLY) TALLY? sOSEND3 17041200 @ 
Santos iz E ee RCN 2255. FE 1° | er eee 1 
IF SC#ALPHA THEN 17041400 "6 
Lt BEGIN 17041500 |@ 
S1t™Sy"13 If SC=ALPHA THEN _17041600, 18 
BEGIN TALLY@=TALLY#13 GU Ls ENDs 17941700 19 
(JUNK teST3 STeRLOC JUNKS Dy teJUNKS DISsDI+13 17041800 29 @ 
R ATE’=DI3 JUNKE=TALLY: 041900 24 
BLANK(JUNKC(DSt=LIT ™ ))3 17042000 22 
END 17042100 of @ 
sich s shares $2913 ecg POM B00 ee re on, ee er ee 2 
END; 17042300 2 
INTEGER Is 1O0eSEL13 17042310 cs @ 
47042400. 2 
DATIMES 17042500 
COUNTESCCACCUMULATOR,.£C33215)= 17042600 
a READUR( QU FERLO- 7043000. 
REAL CACCUMULATOR.s(2726) GIR 1)) 17944000 
DIV ItswOuFF)3 17045000 
_. FOR SELi%s0 STEP 1 UNTIL COUNT DO Mf ett bettas 
BEGIN 17047000 
FUNNYMUVECI +145 IUDs0UTBUFFER)S 17048000 
DS=TRUNCATECLUUt=I] 004] )3 7049 iak ade 36 
JUNK ts TRUNCATE C@COREADDRCOUTBUFFERLII))3 17050000 2 
WRITECOUTFI»WBUFF sOUTBUFFERL*] 93 17051000 a4 @ 
N : R 
WRITECCUTFICDBLIJ)3 17053000 40 
WRITECCUTFID3 17054000 |@ 
END OF SPOUTCCS$ 2055000 42 
SSET OMIT#OMITCOMPILER ANO OMITINTERPRETER 19209999 4 
Bes ia I ia IOI iok tok kik ine tik ia iiscenionte 19210000 4@ 
PROCEQURE FILLMODIFIERS(COMPAREBUFF)3 . i9220000 49 
COMMENT THIS PROCEDURE FILLS THE MODIFIER TABLE 19220005 ‘6 
FOR THE COMPILER UR INTERPRETER CIT IS 19220010 | @ 
D OURING INTEKPRETATION 10 GENERATE 220015 _ ‘8 
PATTERNS FROM A PATTERN DESCRIPTION), 19220020 ("9 
TO ADD A NORD TO THIS TABLE» PLACE IT 19220025 @ 
. “END MENT AND 19220030 a 
INCREASE THE VALUE OF NROFMOD (SEQNR« 19220035 5 
22610000) BY ONES 19220040 :j@ 
ARRAY COMPAR 8 +)3 230000 a : 
BEGIN. ee 19231000 59 
UNLOCK  COMPAREBUFF 7 19232000 «| @ 
FILL COMPAREBUFFL«) 19240000 y 
@ °® 
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& e 
"AB ",%0 19250000 
e "BUFFER ",%1 19260000 ®@ 
"PATTERN ", 3%; oe eee eres GPT OOOO: too an Dace 
1 "DOUBLE »%3 19280000 
@. "SPAGE ",%4 19290000 
3 "PAGE "4% 9300000 = 
4 "TIMES ",46 19310000 
@e|: "WITH "27 19320000 
6 t ".%R 9330000 
7 "BEGIN  ,%9 19340000 
@: "ON #,%10 19350000 
3 " " Sai ae ee ae a, PRO OOO 2 
si "GO ",%12 19370000 
eo" "ELSE ",%13 19380000 
is st ait IN gS a a a ah eh PO POO Ole trendy st! 
"STOP W,215 19400000 
@ "END  %4%16 19410000 
ns Senses a SR Fe eek ae el i OW OOO cee Sena oo 
6 "BKWO ",%18 19430000 
e” "ALPHA  ",%49 19440000 
ne ; "BINARY %,%20 seeee 19450000, i(i‘< 2A! 
9 "INTO ",%21 19460000 
er "FROM ",%22 19470000 
: pian DOE ntact OPO te ee Se eT ee ee OU NON OD ech cn, ate Ad 
pe "PARITY ",%24 19490000 
@ F "TAPEMARK",%25 19500000 
pe ey eee "2h2 stata ees a ee a We 8 OO ON OG an oe ee 
"TAPELABE™,%27 19520000 
@ - wNOT ",%28 : 19530000 
a a OS AON0O 
pe "TOGGLE »%50 19550000 
Or "TEST ",831 19560000 
: "TR ",% , Siena 
"FALSE  %5%83 19580000 
@ "BOT =". 834 19590000 
n w 
"THRU "5436 | 19610000 
@ "THEN "237 19620000 
1 "MOO *.% 38 19621000 
"FOR 5239 3 %140619621100 
@ "TQ ",%40 19621200 
: eee ee NS Ges a ee te a ee OS OO eo ee ts a 
"GTR ",%42 19621400 
@ "LEQ ,%43 19621500 
" . iy % 4 6 bidet ote Aare 
"NEQ. ,%45 19621700 
@ "EOF %2%46 19621800 
WMEMBARIT" » 347 9621900 
"SY ZERROR",2£48 19622000 
rd] "DATAERR ",%49 19622100 
"BLANKTAP", 450 6140319622200 _— 
MNOTSE %,%51 - . #140319622300 
@} "WROCOUNT" »3$2 - %140619622400 
"lop... "853. ee ee -#140619622500 
"RESULT "»s%54 %140619622600 
@ | Nee M3 XEND 4140319627000 
i ~QCKCCOMPAR BUFF E+] i 9628000 
55) ENDB.. . te ~ 49628100 
Se 56 Astessaetenstesutecessetssnssnuaneatesatsaanesstecasnsentasuennsansene+ 19629000 
be LAMAR ED AAA AM EL CLEA ELLE ALCL CCC CURE CECT wane 9G O30000 
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BOOLEAN PROCEDURE PATTERNGENERATURCCHRS»PATEUFF D3 


19640000 


VALUE CHRSsPATBUFFS INTEGER CHRSsPATBUFF 3 19650000 
oo M R_W a A ING IS OD G6 en Sa oe hl 
OF PATTERN DESCRIPTIONS DURING COMPILATION 19650010 
OF SIMPL PROGRAMSe IF "DEBUG" IS SET» 19650015 1@ 
ss Bute Sate sass _ THE ROUTINE 15 ALSO USED TO ACTUALLY GENERATE 29650020 3 
THE PATTERNS, PATTERN DESCRIPTIONS ARE 19650025 4 
SYNTAX CHECKED ANU STORED INTU PDESCE*) DURING 19650030 |@ 
COMPILATION WHEN PDESC BECUMES F » IT 19690035 6 
IS WRITTEN INTO THE CODE FILE AND THE 196500490 ? 
NEXT PATTERN pESCAIP 10h IS PLACED 19650045 |/@ 
eae .G T_PDES fh Go Senet PO OUI OY 0.5.0). us ui tig ea 9 
AS ALREADY SeMTNEE, "Pp" 1S USED TO 19650055 
KEEP TRACK OF THE STATUS OF POESC, 19650060 |@ 
12) 
THE PARAMETER "CHRS" CONTAINS THE NUMBER 19650070. ‘3 
OF CHARAG TERS TO BE IN THE peers (FIELD 19650075 @ 
Bieta to eh 35 sla ts et AY OS OBO a roe oe ote a oS Ns 
SPECIFIED. 19650085 le 
19650090 be 
“<i " T ” . : sass setae da cane oN cae he gs ata ME eo eee 18] 
USED DURING CUMPILATION. IF "DEBUG" IS 19650400 1@ 
SETs HOWEVER» “"PATBUFF" CONTAINS THE 19650105 e 
— : He RUEFE 19650110... 21 
TRE PATTERN IS TU BE PLACEDS 19650115 1@ 
19650120 S| 
rie at cats hatte Kos 19 5 BL, Caan en neEae is ee ace Seen ERE ee eee ee 24 
BEGIN 19660000 ; 
EYAERRESNSANAEREERRER CCA EOHRER LES NE NS EASE RENEE ALORS TRAHAN ER WOE SAO OO60 100 2 @ 
nT - a Fae eet ee a pe oe pe eae 2 
PATTERN» MAX rE TOGSOCTLsSV)3 19660300 e 
VALUE MAX*OCTL#SV3 19660400 21 @ 
N RINGSCAN 1 ND TO SCAN QUOTE SITRIN ADGA OC Sic, oe: type td te eS eee Ee er ee eee ie 
IT MANIPULATES FIRSTSCAN ANDO LASTSCAN IN THE 19660410 = 
SAME MANNER AS DOES SCANAWORD. PATTERN POINTS 19660415 1@ 
__TQ0 THE CORE LOCATION WHERE THE STRING I$ To. = _ss—— 99660420 eee . 
BE BUILTe IT IS UPDATED TO POINT TO THE NEXT 19660425 
AVAILABLE CHARACTER LOCATION BEFORE THE ROUTINE 19660430 3 @ 
1S EXITED. MAX CONTAINS THE LARGEST NUMBER OF 19660435) ; 36 
CHARACTERS THAT ARE TO BE SCANNED CIF A QUOTE 19660440 . a7 
MARK 18 NOT FOUND). ETOG 1S PASSED BY NAME 19660445 4 @ 
___ANO THE CORRESPONDING ACTUAL PARAMETER 1S 4 96HOUSQ 39 
SET ACCORDING TO THE FINOINGS OF THE ROUTINE 19660455 40 
AS FOLLOWS: 19660460 «/@ 
= 19660465 “9 
1) ETOG2O A QUOTE MARK WAS ENCOUNTERED 19660470 4 
IN MAX OR LSS CHARACTERS. 19660472 4@ 
2) ETOG=i A QUOTE MARK WAS NOT ENCOUNTERED 19660474 . 49 
IN MAX CHARACTERS 19660476 46 
3) ETOGS2 THE FIRST CHARACTER IN THE STRING 19660478 «| 
WAS A QUUTEs THe SECOND WAS NOT 19660480 | 48 
4) ETOG=3 -AN OCTAL STRING WAS EXPECTED AND 19660482 49 
A NON@OCTAL CHARACTER WAS FOUND 19660484 «| @ 
IN-THE STRING, 19960466. ee eo ee ee 51 
19660488 5 
OCTL IS 1 IF AN OCTAL STRING IS EXPECTED, MAX 19660490 «| @ 
INDICATES THE MAXIMUM NUMBER UF 68BIT CHARACTERS 19660492) 
TO BE PLACED IN TWE OUTPUT STRING. SV YS TRUE WHEN 19660494 cs 
COMPILING. THIS IS NECESSARY TO DETERMINE IF 19660496 : : | @ 
OCTAL CHARACTERS SHOULD BE COMPRESSED IN THE OUTPUT 19660498 
e@ e 
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SHADER O00 a ee ss 
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STRING? 19660500 
19660502 
! LOCAL TSIsaTDI3 19660600 
7 LABEL XITsBADOCTsCHECKsSyOCTS 19660700 
3 SItsFIRSTSCANS Dits 3; DS:swbos; b60800 
4 SITtsPATTERNS DIs=_Lg0C TOLs DSt=wDSs 19660900 
. S1ssTSIs O1tsTOLs 19661000 
6 S wm reer 9066 00 
7 BEGIN SYseSleis TALLY ts13 IF SCeN"" THEN 19661200 
7 BEGIN DSisCHRs SvCDStaLIT """)3 GO XITs END ELSE 19661300 
9 [2 : 
po TOItsDIs OL8sETOGs OSF=B8 LIT "COD0QC0CE"S OLisTpIl; 19661500 
M4 GO XIT3 19661600 
be BS ecco siete 
i ‘ aie Bi asa or see ece 
‘4 CTLOMAXC2CIF Scat"™ THEN UUM U 3 CHECK ELSE 19661900 
ree 5 SC LSS "OW THen 
Ns BADOCT! BEGIN 19662100 
q TOItsBIs OLts€TOGs cea gs LIT "00000003"3 196602200 
s NL &=TO MPO ; 966 
Ay END ELSE 19662400 
eo If SC GTR 87" THEN GU BADOCT ELSE 19662500 
1 js 
Behe tesseh pe a ee RBI R OO: 
pa SVCDStsCHRs JuMP OUT TO SvUCT)4 19662700 
' SKIP 3 SB3 146062800 


é svocrt END)3 TALLY TSTALLY «1 )3 19663000 
a JUMP OUT TO CHECK)} 19663100 
P7 ue sein THEN 0 9663200 
re “BEGIN DNStsCHRs TALLYOMTALLY ete END)s 19663300 
é CHECK? 19663400 
B mteteny N 663500 3 pears 
BEGIN 19663600 

B SVCDS!#2CHRs JUMP OUT TO XIT)3 19663700 
i SltaSI+ 19663800 
‘ END 19663900 
P ELSE 19664000 
36 G Q 6 C) 4 O O sade Pe oe an a St te 2 take 
i ot sop DItsETOGs DS#=8 Lit "OCoggddo 1"; DLsstoOls 19664200 
be EN 19664300 
39 XIT3 SENENGSCANS @TALLYS TSI3SS7T53 STiFLac TSi3 19664400 Ss, 
i TDII2DI3 DISSLASTSCAN$S OSt=WDS3 19664500 
1 ST:sLOC TOLs DISsPATTERNS OS3:=wOS3 19664600 
‘i END? 66470 ” 
i $SET OMITSOMIT OR NCT DEBUG 19664749 

GUE ITE IIOUN SIG IIIISIII IG IOG ini ii ik tiie ie tite 19664800 

STREAM PROCEDURE PROPOGATECPs JUNKsRI»COUNTsRIMOUCOUNTIS 19664900 
6 VALUE RIsCOUNT»RIMODCQUNTS 19665000 
7 COMMENT PROPOGATE EXPANDS A STRING OF COUNT CHARACTERS 19665005 
é INTO A STRING OF CRI+4)xCOUNT + RIMOOUCOUNT 19665007 

CHARACTERS, P IS THE ADDRESS OF THE .CHARACTER 19665009 
Pa a FOLLOWING THE STRINGe JUNK IS TEMPORARY. STORAGE 19665011 
wl OF AT LEAST COUNT CHARACTERS. P IS UPDATED To 19965013. 
Bz POINT TO THE CHARACTER FULLOWING THE EXPANDED 19665015 
BS STRINGS 19665017 
BEGIN , a 49865100 
BS LOCAL Ta TRI TRMCOTC3 les 19665200 
6 SrltaLOc RI} secon plteoc. TRIB Diéecie?s OS4 sCHRI 19665300 
_SysalOc RIMODCOU SlrSS146) OLIFLOC TRMC3 DisesDj+7) Ds HRS 9665400. 
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STt=LOC COUNTS SIs=Sl+6s DI set 0C Ics Clts01+75 OSt=CKR3 19665500 
SYT:sP3 DI%=LOC Ts pSt=wOs3 19665600 
= JUNK 3 = peeve cee So OO GS 7.00.8 a 
TOCSL$FSI"323 ST#sS1*32)3 SlseSI"COUNTS 19665800 
TCCDOS##32 CHRS 0S%=32 CHR) OS*SCOUNT CHR; 19665900 
am eras | Seek ate AS oa ee aie oe 
TRIC2]CI2°CTCCOSts32 CHRS DSt232 ChkK)s DSt=eCOUNT CHR 19666100 
TCCST4=S1"323 SItsSI™32)3 SLs*®SI*COUNT)))3 19966200 
RICTC(DS%2=32 CHRs OS%=32 CHR) DS*=COUn Re 666 lite rete cee Nee 
TCOCST3sS1"325 SlssSl"32)5 SlseST=COUNT)3 19666400 
TRMC(DS8232 CHRS 0S:2%32 CHR); 19666500 
% SREMOOCOUR als 19666600. 
TH=DIs DI&=Ps SI8S_Ov Ts DS2swpS; 19666700 
END3 19666800 
EERE RRERSASBARERERERALEARAREAREE SREP ETRE RTL KEK KK AANA RAKE aera, ss lugaleds. bab Settle nacitantsteuht at: 
STREAM PROCEDURE RIPPLERCP»RI,INCRIS VALVE RI>INCR; 19667000 
BEGIN 19667100 
OMMEN NERATES A RIPP Pi RN RI+ rARA : Os 19667102, ee Mo yaa AM as 
STARTING AT THE CHARACTER PRECEDING THE UNE 19667104 
ADDRESSED BY Pe THAT CHARACTER 1S USED AS A 19667106 
BAS MARACTE INCR IS THE INCREMENTe P yO Se eT < ER en 
UPDATED TO POINT TO THE CHARACTER FOLLOWING 19667110 
THE RIPPLE PATTERNS 196671412 
OCA Ys 5 A at = a 19667200 oo 
x 19667300 
Sy!*sLOc RIZ SIltsSI4+6s PLt=LOC TRI DLtHO1+73 LSt=CHR; 19667400 
sP OIlisio P 9f=WNS? 19667500... 
SrssTPs OftelLOc BF SlezeSreis OLts01475 OSt=cHR; 19667600 
STtsLOC Bs DItsTPs S12 2S7+73 19667700 
= ¢ = ® _s e q OO. ees 
RICTALLY?sB3 TALLYtsTALLY+INCRs BI=TALLYS DSi aCHRs SItsSl-1)3 19667900 
TPsa0Is3 DIssPs SIs=_LUC TP3 OSs ewvS} 1$668000 
______END3 668100. 
JIU IGIOINIOIIIISI IIIS IIGIOIISISIBIIIIOUISIOI III Gi otk iidnietbiietn 19668200 
INTEGER STREAM PROCEDURE SPECIALMOVECN*A*B)3 VALUE No args 19668300 
COMMENT MOVES N CRARACTERS FROM A TQ B RETURNING THE 19668302 
VALUE OF OI AFTER THE MCVE WAS COMPLETED; 19668304 
BEGIN LOCAL NN3 19668400 
SpeslOC Ns SyteSre+es pyt=LOC NNA YIs=D1+73 OSteCHR3 19668500 
SItsAs DI%$=Bs NNCOSis32 CHR’ DOSi=s32 CHR) DS?=N CHR3 19668600 
SPECIALMOVE 3D] 3 19668700 


END} 19668800 __ 


$POQP OMIT 


19668850 


FOO RII III III III III II III ICID II III toning inet 19668900 


INTEGER SloPeRIsCReETe+ TRI» SIZES 
INTEGER SST3 
SSET OMITSOMIT OR NOT DEBUG 
LABEL PROPITs»SIMPLES 
$POP OMIT 
LABEL BACK sRIPPAT»BUBACK sPROP »LGUK»s FINISHEDSCANINGsxIT»PROPEDS 


DEF N 

WORDSWRD (CCOMPAREBUFF » 24) ts 

PRINTERRORCPRINTERRAR] 
: N : : 
ERRORS ®PRINTERROR]I 5 
PATTERNGENERATORS=TRUES 
GO XIT3 
ENDSs | 

OCCTL 23%, 

WBS JUNKBUFFERS s 


19670000 _ 


19670100 
19670150 

9670200 
19670250 
19680000 

690 

19700000 
19710000 

97200006 
19730000 
19740000 
19750000 


19760000 
19770000 
9770400 
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RIPLE=1783 19780000 
BOULEAN BUsOCTLL> LNG» MINUS» COMPILINGSLITPATS 19790000 
* BOOO0G SS coc 8 ek tno sta ena 
IF LITPAT3*CHRS#O THEN CHRSi#s1i203 19801000 
CRIECHRS 19801500 
$3 0 af UR NO . 9802000 Seth i Ae ons 
IF NOT COMPILING?=PATRUFF LSS 0 THEN FtePATSUFFS 198100C0 
$POP OMIT 19830000 
hl RUE DO -B840000 
BEGIN OCTLL&sFALSE3 %150119850000 
BACK? %#1501198606000 
a O88 00 
IF BJ&=COUNT LSS C THEN 19480000 
IF LITPAT THEN PRIATERRURC118) ELSE 19881000 
IF RIS=TESTBUPFERC OC] GIR CHRS OR Rl= 9890000 eet 
PRINTERROR(107) ELSE ELSE 19900000 
IF SPECTALCHRS"*" THEN RI@sCHRS ELSE 199190000 
—___IF LITPAT THEN PRINTERROR(118) FLOP dO 
IF WORD=RIPLE THEN 19%20000 
BEGIN 19930000 
RT$= RS 3 gg OO Oasis 
OCTLLISFALSES 19950000 
RIPPATS 19960000 
PT IsOs 9970000 — 
SCANS 199380000 
IF SPECIALCHR NEQ “"" THEN teten 
IF OCTLLY=WORD=OCCTL THEN GU KIPPaAT FLSE O00 0:0 ~ 2. to ee 
PRINTERROR(108)3 eee 
. FIRSTSCANSSLASTSCAN} 20020000 
SSET OMIT=0OM OR NOT DEB 0021000 
IF NOT COMPILING THEN 20030000 
COUNT2=STRINGSCANCFIRSTSCANSLASTSCANsPolvEl sOCTLL»0)3 20040000 
SAVIN HE | Q DOG) 9 oe in| 
BEGIN 20060000 
LASTSCAN!sFIRSTSCANS 20070000 
$PQ0 POM . 0 orere TION TOE ree Le a ae ee A 
COUNTSSSTRINGSCANCFIRSTSCAN*LASTSCANSACCUMULATUR» 20080000 
1eET*OCTLL91)5 20040000 
$5 OMIT=OMIT OR NO BUG 091000 eee aes 
ENDS ; 20100000 
SPOP OMIT 20101000 
F 20: TH A £E PRINTERRKOR ; O110000 ss 
IF CMINUSt SSPECTALCHR="=") QR SPECIALCHR="+" THEN 20120000 
BEGIN 20130000 
AN 0000 et ee 
IF COUNT iss 0. THEN 20150000 
IF NA eee ent ee eTA 63 THEN PRINTERRORC116) 20160000 
$ AN O17gooo 
ELSE PRINTERROR(116)3 20180000 
END 20190000 
SE Atal; 02000009 
CHRStaCHRS*RIZ. 20201000 
S$SET OMITSOMIT OR NOT DEBUG 20202000 
[EF NOT. COMPILING THEN 0210000 
BEGIN | 20210100 
IF RI on 4096 THEN 20210200 
R 0210300 
RIPPLER(P) 40950 IF MINUS” THEN 63°NTO ae Nee 20210400 
20210500 


| R1veR1*a005) 


wESE 


02 1600 
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IF RI GTR 1 THEN 20210700 
RIPPLERC(PsRI@1eIF MINUS THEN 63°NI16 ELSE NT4)3 20210800 e 
Da a a et se OO Oe a ee 
$POP OMIT . 20220000 . t 
GO LOOK; 20230000 | 7 |@ 
___END 2024 Be ide i 62s 3 
ELSE IF OCTLL&=wORNZUCCTL THEN GO BACK ELSE 20250000 4 
PRINTERROR(108)3 20260000 |@ 
IF BJ THEN = Be ee OOOO Fe et 8 
BEGIN . 20280000 y 
OCTLL?sBU!SFALSES 20290000 1@ 
BUBACK CANS a 20300000 00 . 
IF SPECITALCHR NEQ """ THEN 20310000 a 
IF WORDZRIPLE THEN GO RIPPAY 20320000 \@ 
ELSE IF OcTLLs=swORDSOCCTL THEN GO BYBACK ELSE 20330000... 
PRINTERRORC108)23.— 20340000 7 
ENDS 20350000 7 @ 
R1220 20360000 ss iby 
LNGI@FALSE3 20370000 ‘e 
WHILE TRI LSS RI ODO 20380000 7 
BEGIN “OFF De 0 810) 0 I saa PS oe ee a ba 
FIRSTSCANtSLASTSCAN; ET? =03 20400000 1s 
$SET OMITSOMIT OR NOT DEBU 20401000 9 @ 
NO OmP NG THE? GR POC0 02. > 
COUNT S3STRINGSCANCFIRSTSCANSLASTSCANSPeMINCRI=TRI 963)» 20420000 22 
ET»OCTLL9O)5 20430000 ry @ 
_-IF_ SAVING THEN Pe rneesy-260'6 G91 cite 1 See meee ee et eee ae ee I eee 24 
BEGIN 20450000 
LASTSCANt2F IRSTSCANS 20460000 
$F OF Shu pais Se ot re hse at Sth amet ead, 
COUNTP=STRINGSCANCFIRSTSCANSLASTSCAN* ACCUMULATOR» 20470000 
MINCRI@TRI 263) ETS OCTLL 9 1)¢ 20480000 
$9 OMITSOMIT OR BU 431000 
END3 20490000 
$POP OMIT 20491000 
IF ET=3 THEN PRINTERROR( 445) ELSE osu0o000 
IF ET=2 TREN 20310000 
BEGIN 20320000 
SCAN} IF NUTCSPECI AL CARE" "" AND LG) Trew 20550000 aise * 
PRINTERRORC1C8) ELSE GU PRuUPsS 20240000 . . a7 
END ELSE 20530000 1@ 
— . 39 
IF TRIZSTRI+COLAT Gee RI THEN PRIKTERWOR(C107) 2092/0000 “0 
ELSE ULNGt=TRUE FLSE 20560000 «|@ 
om P 42] 


Se |e a eee ee || 


PROP: », 20600000 . | e 
IF LITPAT THEN. . 20610000 7 
BEGIN Riis +COUNT 3 0 PROPPED FNO ELS 6 O00 ee eae 45 
IF TRIt=TRI+COUNT LSS RI TREN 20620000 “9 
$SET OMIT=OMIT OR NCT DEBUG 20620500 «1 @) 
IF NOT COMPILING THEN 008 L006 ses te ee ees ‘i 
BEGIN 7 = 20621500 “a 
IF PeCFF120 THEN 20622000 | sf @ 
TRI. MOD 820 THEN 0623000 i ies eee el oie = 
GO SIMPLES , 20624000 5 
IF (SSTS=((8xP,{CKJ)+Pe(FFJ°TRI)) MOD B= 0 THEN 20627000 @ 
BEGIN 20626000 a 5 
IF TRI. L558 ANO RI GEO @XTRI THE 20629000 meine 5 
BEGIN. oe : 20631000 | a ee 2g ca @ 
SS OUNKEROR Oc 20631100 a ee es : 
@ @ 


oc Dpm NO TO FF WD KB = 


5 Th = as 3 
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PRCPOGATE( Ps JUNKe /*TRI20)5 206032000 
IF TRIt=8xTRi=al THEN GO PROPEDS 20633000 @ 
Na a a ed a Be SO OOO — eee ea 
ELSE 20635000 
BEGIN 20636000 
PROP T3 06 6 e eta Se eat eee 
JUNK? =05 20636200 
IF ETSS(CGUNTS=RI“TRI) Diy TRI GTR 20037000 
4095 THEN 638000 — 
BEGIN PROPOGATECPsJBsd095eTRI90)3 20639000 
ETESET@ 40953 20640000 
an 2bHOSOO 
CND3 20641000 
PROPOGATE(PsJHsETo IRI» 20642000 
ETE CCN TY a ee ce POOH S000 a ee ne 
GO PROPED; 20644000 
ENC} 20645000 
SIMPLE! ss CVALUEMCVECCRI@TRI) OIV BePeTRI DIV BoP)s  064HN00-—=—ee— ss 
PS=P+C(RI*TRI)D ULV o)3 20647000 
IF ETS=C(RI=TRI) MOD TRL NE@ G THEN 20648000 
eeteeectee st aa “(I 5 (Ls De ee 
GO PROPED} 20650000 
ENO ELSE 20651000 
eens B AR IOOO 
GO PROPIT 20654000 
ELSE 20655000 
te Aes ; a oe 2OBSH00 0. oe ee 
IF RI*TRI GTR 4095 THEN 20657000 
BEGIN 20658000 
CENTIERCSST MOD 8)ICCTFIsP)3 20660000 
TRIZ=TRI+40953 20661000 
PtsSPECIALMOVECRI@TRI*® (SST DIV B)& 20663000 
CENTIERCSST MOD B))LCTFIsP)3 20664000 
ws BH BAG ONO 
ENDS 20666000 
SPOP OMIT 20667000 
PRUPED3 DO PO OGG arn oS ce wed Sa 
TRISERIS 20730000 
ENDS : 20740000 
a a en ee SO PS OOO rence cass: 
CHRS?=CHRS=RI3 20760000 
SCAN} 20770000 
OKs 2u7s00c00.. sss 
IF SPECIALCHRS0 THEN PRINTERROR(112) ELSE ‘ eS 20790000 
IF SPECIALCHR#")* THEN G@ FINISHEUSCANING3 20800000 
PND 2OeLOO0d = Es 
FINISHEDSCANINGS 20820000 
SSET OMIT2OMIT OR NOT DEBUG 20821000 
IF NOT (COMPILING OR TPAT) THEN 0830000 ee er 
IF CHRS NEQ 0 THEN 20840000 
BEGIN . 20850000 
REVERSEMOVECCR#=CHRS»PsCPATBUFF+(CR DIV 8)28 208460000 
ENTIERC(CR MOD 8)CCTFI)3 20861000 
IF RIS=CHRS DIV 8 NEQ O THEN 20862000 
. 0863000 


CLEERCPATAUFF eRI@1L)3 ae - no , Ss 20864000 
IF TRI$sCHRS MOG 8 NEGO THEN - 20665000 
CHAR? RMOVEC TAI *PATBUFF sPATBUFFHRID 4 20866000 
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END 20867000 
ELSE 208¢8000 
Se tet I IN a a a hs eG ed POP OO. to 
CLEARCRI01)3 20870000 
CHARACTERMOVECCKRSs COREADDR(RIsPATBUFF 5 20871000 
NOD Scere a EI a Se DOP OO Oy nun oF 
END ELSE ELSE 20880000 
$POP OMIT 20880500 
IF LITPAT THEN COUNTS=4cO=CHRS3 ny tn i Bs te PO OO Oem sce eh ett 
XIT? END; 20890000 
SPOP OMIT 20890100 
RERERERESESCAN RBLNCK CODE STARTS HERE#HHesee etek odeseeeneeeaeeeteeeeeeeeer0900000 
RETURNI$ 20910000 
IF DPONETOG THEN GO AaLLOONEs 20920000 
~~ GbOSECCODEFILE)3 INSURANCE esos 0 8A OOO 
IF INSWITCGK LSS 10 THEN 140220929000 
POUT EEO eee eee MCU rene Abend FALSE)3 20930000 
a aan SOOO Os ts ca ee tb at, 
CoWLTCHaePATCHSWiTGH!GERRUWS! aEARORt =DELAY# 03 %1440520940000 
CLEARC JUNKBLFFER*s 60)3 20950000 
__FOR TEST$#63 STEP 9) UNTIL O DU 9 COOON 
TESTARRAYC TESTI $203. 20970000 
INPtSFIRSTSCANTBLASTSCANS SCOREADORCINPUTBUFFERD 5 20980000 
CCuUML = R NKBUFFE Mae eomn s,s. oe eos 
FILLRESERVEDCCOMPAREBUFF )3 210900000 
IF UNITS£C1*C]#0 THEN 21010000 
Ak i ne ee ee z Dato ceo inag I Ebi tet, Se cece 8 eS Th a oo cae 
HTOG? eNTOG@t=sP TOG! sUTOG? sEQF TOG? sSDONE SCAN?! 2CMENTS sMAKETAPES s 21940000 
CONF SsLSTIscCOMPILINGSSREVESSAVETOGSSFALSE3 %140521050000 
—__ PAGED aS AVING Se T RUE 3 BIG ie ol i 
270 REINITIALIZE AFTER EXITING TEST BLOCKS% 21970000 
READIT?: 21971000 
—______-_IF_INSWITCh GIR 9 THEN INSWITCHS=INSWITCH"=10 ELSE sox gau221072000. ices eer Se alta aaa Sea cater 
IF INSWITCK NEQ 2 THEN 21080000 
WRITECINFILEsENTERDATA)3 21090000 
gel a Fi a A i et el a Mn ia OOOO 4 cn eden ee ee eS 
SCANS 21110000 
IF COUNT=0 THEN 21120000 
FSP A Reve" THE Sat ee oe nw pe te OO Ore re eee Bee ee 
GO CONTROL ELSE 21140000 
GOPERROR(C31) ELSE. ¥150121150000 
IF COUNT LSS 0 THEN GOPERROR(O) ELSE 21360000 
IF WteWORDs1 THEN 21170000 
GO CONFIDENCE ELSE 21180000 
IF REVis(Wwe6 OR CW LEQ@ 26 AND W SEQ. 24)) THEN 21190000 oe 
GO CONFIDENCE ELSE 21191000 
IF we14 THEN GO ALL DONE ELSE. 21200000 
S$SET OMITSNOT TUNEUP %#150121200050 Nome A 
IF w34 THEN 4DELTA #159121200100 
BEGIN %150121200200 
SCANSIF SPEC ALCHRE "=" THEN SCANS 2150421200300 
IF. COUNT GEQ 0 THEN GOPERRORC27)3 : #150421200400 
SDELTA steTESTBUFFERLOIJ3 ; a %150121200500 
SCANJIF. COUN EQ 0 THEN LASTSCAN? #FIRSTSCANS %150121200600 
GO TO R13 %#150121200700 
END3 %150421200800 
$POP OMIT %#150121200900 
GOPERRORE@)5 a ve fee %150121210000 
CONTROL? 21230000 
SAVINGERFALSES pte mie 21231000 


oo wz mn OD ® WH = 


Data Documents/inc. 


zy 3 y 3 * 2 E A s. kK x. 5 53 


(Ts 


IF CONTROLCARD THEN GO MCCLRUN ELSE 21240000 
GO MCCLCOMPILER; 21250000 
ONFIDENCE? eam eta OU OU OY. ete eet ec, 
IF NOT CONFSCAN THEN 21270000 
IF TAPETEST OR. NOT DISKTEST THEN 21280000 
BON OO! A Ge perc 
ELSE 21280200 
BEGIN 21280300 
PO ; 2HO400 
GO RUNDISKTESTS; 24280500 
END} 21280600 
PERKOR - 
IF EQFTOG THEN 21320000 
BEGIN 21330000 
WRITECCFILE*sEOFF )3 21340000 
GO EXIT; 21350000 
CUNTROLCARDERRORS %#150121370000 
GO TO IF INSWITCHe2 THEN EXIT ELSE RETURNLS 21890000 
M OT SUOOO 0) aati aess 
BEGIN 21920000 
SSET OMIT=OMITCOMRBILER 21920100 
ASV e eee eee eee edt eee deeded tebe ee te ee eee eee ee eee ee eee eke eee eee ee ee eee 21990000... 
INTEGER 21940000 
THISTESTs 21950000 
i] G 
NEXTUNIT»s 21960000 
ZNUMBER OF UNITS DECLARED 21960005 
N P i 
@NUMBER UF PATTERNS QECLARED 21970005 
RBUFFs»s SINDEX OF BUFFER FOR READS WITH FATTERN 21971000 
s 990000 
STEMPORARY STORAGE CUSUALLY UNIT NR) 21990005 
SIZE» 22000000 
ZTEMPORARY. STORAGE 22000005 eK oe GM en 
OBUFFSIZE» 22001000 
SIZE CF BUFFER ONE 22001005 
NE AB 02000 
SNUMBER UF LABELS DECLARED 22020005 
NEXTSUBs 22021000 
RANUMBER OF SUBROUTINES DECLARED 2292100 
Pe 22030000 
ZTEMPORARY STORAGE CUSUALLY PATTERN NR) 22030005 
Bs O4 
TEMPORARY STORAGE = CUSUALLY BUFFER NR) 22040005 
SAVEA» 22970000 
¥R ANDRESS In SEG O WHEN 5 Q 0 07000 
LSEGs SSIZE OF LARGEST SEGMENT 22071000 
NEXTSEGs 22080000 
ZLARGEST SEG NR THUS FAR 2080005 
TIMEL; 22990000 
VALUE OF TIMEC1) WHEN COMPILATION STARTED 22090005 


LARTER TELE ELE LEE PRCT T EEE ET eee T TE TET TEES 


REAL LASTERRORS 


&SEQUENCE NUMBER OF LAST SYNTAX ERROR 


RSSRSAMNERAAEAUEK ORNS DANAE HEEHERHRP ADEA ER AREAS EAE EER EERE ED 


FORMAT. 
LACK112280"%X" 94 


"NO, PATTERNS = "2 13 


OOO 0 varios un Sa 


Soll too bo Renn enna nar Renee eer 


0904: 
22090200 
22090205 

120000 
22130000 
22131000 


0006 
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ae: 
T 


e 
Ses 


= 
= 


= 
wo 


5 8 


51 
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DISKSIZEFC™PRUG, DISK FILE SIZE = "sl4e" SEGS")>» 22150000 
EFF C"NUMBER OF ERRURS DETECTEDE"s 145", COMPILATION TIMES", 22160000 Sd 
rane ere ns ULE Ip Sateen oa ee ae ere ae ee ee Pe ee SG) AVY 0100 eee ee 
SEGSIZEFC"NC,. PGM SEGS = "#13e"5 TOTAL PROG SEG "» 22180000 : 
"SIZE = "sT5se" WOS")5 22190000 2|@ 
Atne ee eee eee eee eee eee et eee eee kak eee beta ee eee te kee eee eee eee eee ePIZONO00 : 
DEFINE 22210000 4 
ERRORMAX=804s %NUMBER UF SYNTAX ERROR MSGSeee 22211000 |@ 
sett a Wis IN We Og ok oe Se Gh Se BO POO Cee ake ta ee 6 
BUFF a1, 22230000 : 
PAT=2#» 22240000 |@ 
see OU on 22250000...” pt Past oe eg ee : 
SPCE=44> 22260000 " 
WTH=7#» 22270000 /@ 
Oe ETS OS CUCL Lol 2 eee ate Renae ie nee en Sep ORM OOD Ds rea. 2 ite a oh ede Sioa Re ats ee ee ee 2 
NIGEBS9#> 22290000 3 
ON={Oe> 22300000 \@ 
wet os Rd EE ui aces OOO Cass 408s 24h ah ket a oe te ee he re 
GOGO=124>, 22320000 ie 
ESLE=13#> 22330000 |/@ 
NONOS14#, ee BO SU OOOO ttt ee 18 
STPai5#, 22350000 Me 
RIPLER17#> 22360000 cy @ 
ag ee ee ee Se 2) 
PAR=24#, 22300000 
TPMRK=258> 22340000 21@ 
Sigel Roe, = Ba FS Nahin oe ra rie vo Rol Wee Volk all a eee tana nen meee aot MEN cee ie irae aes Ela ee Ron eed ae Va ay 
TGLE=30#> 22410000 | 2 
TSTe3i#, 22420000 | @ 
_ EURTS 328, 22430000 
ESLAF S334» 22440009 a 
THRUZ364>» 22450000 of @ 
safes THN=37#>5 ce OO OOO a So Sea te a he ts bi 
MOD3"38#>» 22461000 ay 
NOE=51i#>» %140322462000 | 
ey ICE, £1 ee Ce ee TOYS TEE OM MEP “21°10 1°) © SNe eee 3 
Fo ee IRI III III TOI I III I III TOI III I III iting 22480000 34 
ARRAY EDOCCOtMAXSEGS=1202511)3 22490000 2 @ 
eee 22490005 7 
COMMENT USEp TO HOLD THE EMITIED CUpeE. TRE ROWS OF © ©e249001G s 
THE ARRAY CORRESPOND 10 THE SEGMENTS IN THE 22490020 a@ 
See SIMPL PROGRAM, SIMPL INSTRUCTIONS AR 22490030 _ 39 
FULL WORD IN LENGTH. 1/70 INSTRUCTIONS 22490040 
CUNSIST OF TWO WORDS, 22490050 «|@ 
22490060 _ . 
THE FORMAT OF THE INSTRUCTIONS IS AS FOLLOWS? 22490070 4 
22490080 4® 
INPUT TALLY INSTRUCTION 22490090. een cee ag 
eens Seen ete eeenen 22490100 ‘6 
| 22490410 mtd 
0242)=0 490420 48 
C42t6)at 22490130 ee Ni 
22490140 sd @ 
READS INPUT FILE AND ASSIGNS "TALLY". THE 22490150 _ | 
VALUE OF INTEGER FOUND THERE, 22490160 ‘ 
(DEBUGGING INSTRUCTION ONLY) 22490170 oj @ 
2244901380 6 
PRINT INSTRUCTION 22490190 eae 8 
wee liad leah hedaedadade 2) 22490200 : 4@ 
22490210 . sy 


oon oO Oo fF WH = 


i*] 
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Cees 


FF IJSNUMBER OF CHARACTERS TO ROTATE 


ese ON ROE RET EMDR! °K. 0- 1-1? Rae 


f0%21)]=0 22490220 
{121])=0 PRINT PATTERN 22490230 
aie ed A SRN Ta ti yg i MODE Oey che Gti a 
C2%1]= {2 DISPLAY TALLY 22490245 
C3%:5)20 USE apne OR SIZE uF DISPLAYED ITEM FOR SIZE 22490250 
=30 “Dp a FR 037-21 « 16 enone ee ERE 
=31 “DISPLAY THRU WRncoUNT® 22490270 
C810J=0 DISPLAY ENTIRE ITEM 22490280 
=10 i 
ZOTHERWISEs USE AS SIZE FUR DISPLAY 22490300 
(FFI | 83"77777%% DISPLAY NO DATA 22490310 
BOTHER PA RN GR B R NUMBER OO a H9NZQQ 
C33§1]=0, EDIT DATA (DISPLAY STATEMENT) 22490330 
1, DO NOT EDIT DATA CPRINT STATEMENT) 22490340 
gee i ee a en a NGO SS 0S St 
C40%i)J=1, PAGE BEFORE PRINTING 22490360 
eae ace SINGLE SPACE | 22490370 
P PeNSO9RO 2st otto it 
rreTrare é 22490390 
22490400 
NO YQ OF N a aN g Ban Pata nate cn Lt 
2 we 22490420 
22490430 
0%1)20 490 eae ee 
[1%1]=0» NORMAL END OF LOUP 22490450 
sl» END OF TEST LOOP (¢* TIMES) 22490460 
2316)=0 a es ee OI Ten Ia re tt ite 
CFF) = RELATIVE ADORESS OF BEGINNING OF LOUP INSTRUCTION + 1 22490480 
CSCFJ= O» SUBROUTINE EXIT INSTRUCTION 22490490 
= OTHERW ; A ATUR 90500 
CIFLJ=s 3 22490510 
22490520 
NSTR ON 490 0 aan = 
oe Seer naam 22490540 
22490550 
¢ 8 #0 SYOS56O. 
CFF) =PATTERN NUMBER 22490570 
(SCF) =sBUFFER NUMBER 22490580 
TIFL] =4 22490590 Ce ee ae 
22490600 
ROTATE INSTRUCTICN 22490610 
Ban Hae agtaannue 4906 ) 
22490630 
f£0%1)]=0 22490640 
$1)=0» ROTATE RIG 490659 van teteee oie! 
“Ws ROTATE LEFT 22490666 
(2316150 22490670 


CSCFIJSBUFFER NUMBER 224490690 
CIFLI=5 22490700 
YQ 
SHIFT INSTRUCTION 22490720 
manana ee oF Sm 22490730 
be ges 907.40 
(0:1)=0 22490750 
Chie SHIFT LEFT 22490760 
: R 22490770 See, 

[2tiéis0” 22490780 
a boon bibet a OF CHARACTERS TO SHIFT 22490790 
rER NUMBER te OB00 
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6 a * 0 a 5 5 5 2 B = 3 ~ 
on 3 > oD © o& a .) 


CIFL]=6 22490810 
22490820 e 
OMPAR N R ON 2490830 — 
CT ee ee te ee) ; 22490840 F : 1 
22490850 :|@ 
0t1)=0 490860 3 
C1213505 DUMMY COMPARE STATEMENT 22490870 4 
=1> CONDITICNAL ERROR CODE FOLLOWS 22490880 |@ 
C2t1J=1» THEN NO ERROR OUTPUT UN COMPARE ERROR %140322490885) 6 
C3%:ijeis THEN NOYSE ON ERROR OUTPUT ON COMPARE ERROR %140322490890 og : 
(4414]80 %140322490a95 |@ 
FJ] s R BER + FSe RN COMPARE = BAY OGD 4 
= BUFFER NUMBER OF FIRST BUFFER» OTHERWISE 22490910 109 
CSCFJ=BUFFER NUMBER OF SECOND BUFFER 22490920 | 
aaah see Oe et Se ee es Sie oe oe OU POO. Ss ea in 
22490940 Me 
BRANCH INSTRUCTION 22490950 @ 
Beem MEM awe hee CPP HGOOKOCi 15) 
22490970 le 
10318] = 0 22490980 ee 
FF] = SEGMENT TO BRANCH TO 22490990 18 
CSCFJ & RELATIVE ADDRESS T@ BRANCH TO 22491000 "9 
CIFL] = 8 22491010 2 @ 
See OW 94 O20 ne ee Se an en ne 4 
JUMP OUT OF SUBROUTINE INSTRUCTIUN 22491030 2 
ee ee rr eer ee eer | 22491040 2 ] 
ES a ark ae NP ee a rn a a ee OE SO peta gatie eet Oat So Be 24 
(0342)"0 : 22491060 | 2 
CIFL] =9 22491070 2 @ 
i OA Onn ide be 2 
NOTES THIS INSTRUCTION IS EXECUTED PRIOR TO 22491090 
BRANCHING FROM A SUBROUTINE TO A LABEL 22491100 
SEGM 6) IT CAUSES T PSk 22491110. 
STACK TO BE REINITIALIZED CSIMILAR TO 22491120 
STACK ACTION IN ALGUL PROGRAM WHEN 22491130 
BRANCHING FROM PROCEDURE To OUTER BAO EHO 
BLOCK LABEL), 22491150 
22491160 
MP_O NSTR Q 22491170 2 a 
eens = om 7 Sea Sa meeeaeuw a am 22491180 7 
22491190 a @ 
02311720 é 00 fe 
C181J]=0» STOP DOOP LOOP (BRANCH TO END OF CURRENT DU LOOP) 22491210 a9 
22491220 «|@ 
__NOTES £181) JS SET WHEN INSTRUCTION Io 224912390 | . 
USED TO ADUUST PSEUDO STACK PRIOR | 22491240 : . ‘ 
ro BRANCHING FROM A DO LOOP TO A 22491250 4@ 
OUTSIDE OF THE LOOP 22491260 “9 
22441270 J 
Cit2)24»5 INHIBIT BRANCH TO END UF LOOP 22491280 eh 
: sf 49 OOS re tie ers te! 48 
CSCF] 30, IF NOT £1212 ie 22491300 ies 
sNUMBER OF LOOPS TO JUMP OUT OF» IF C184). 22491310 | @ 
si0 ee 4G f) ‘ : i 51 
22491330 8 
1/0 INSTRUCTION (FIRST WORD) 22491340 «| @ 
orn BEB en anaes ae Baas eamanne A ct OS > 54 
. 22491360 Soe BF oncnegs ts 56 
OFL280 se : 22491370 : Se at oe |@ 
21]5Qs NO ERROR CLAUSE IN I/G STATEMENT. | : 22491380 3 nee ae 5 
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Sea se ede ee e 
=i» CONDITICNAL ERROR CODE FOLLOWS 22491390 
[281]=0+ FULL OR ABREVIATED ERROR ANALYSIS 22491400 e 
zj]» NO ERROR ANALY SIO 22491410 
1 C3tSJeINTERNAL UNIT NUMBER 22491420 
2 (8t10]*#SIZ— OF 1/0 OPERATION 22491430 
3 
4 NOTE? IF SF=1023» (TALLY+?) DIV 8 1S VSED FOR SIZE 22491450 | — 
6 IF SF=1020 AND OPERATION IS A READ, NO SIZE 22491460 
é HECKING [IS PERFORMED 49 -_ 
1 [1837]=SAME AS TAPE 1/0 DESCRIPTOR FOR THIS OPERATION 22491480 
8 C2588)8EXPECTED ERROR FIELD 22491490 
9 =O 2249 1 500 
Ng CIFLJ #11 22491510 
er 22491520 
ao VO INSTRUCTION (SECOND WORD) 22491530. = 
il TL ee. | 2 ee ee Pe er er YY 22491540 
ah see ; 22491550 
6 01s i ea a i a ee PMO UBD Cet ec ee 
rel ; C1!1)=0» FULL OR NU ERROR ANALYSIS 22491570 
eo” 1» ABREVIATEY ERROR ANALYSIS 22491580 
8 2si}e1» THE OrS—E ON ERROR OUTPUT - $140322491585 . rea ae 
9 | £3351=0 eet %140322491590 
eo” (8t10)#0» IF NGT SPACE OPERATION 22491600 
_30 AND SBACE OPFRATIONs INHIBIT SI7F CHECKING === PMG gig — 
NEQ O AND SPACE OPERATION? SIZE GF EXPECTED REC. IN WDS 22491620 
6» CFF] =3"77777"» NO PATTERN USED 22491630 
pe __=OTHERWISF, PATTERN NUMBeR a to 
(SCF) =BUFFER NUMBER . 22491650 
@ 22491660 
p7| NOTE! SCFa3"777" PATBUFFL* Bas 4 Se ot nena 
Re 22491675 
@, CIFL) =1, READ 22491680 
= wR 4 A90 Sa Pes stn Ss 
3, SPACE 22491700 
e &4, ERASE 22491710 
85, REWIND TBD 
22491730 
@ GO TEST INSTRUCTION 22491740 
: 22491760 s—~S 
@ [0'42)=0 22491770 
; & =f © Ez dee Some Rr geet a 
22491790 
e FILL TALLY INSTRUCTION : 22491800 
Sage 22491820 ee 
@ + 10#1]=0 | : 22491830 
Lti)s0s REPLACE TALLY WITH NEXT INSTRUCTION 22491840 ee 
6 =1>s REPLACE TALLY WITH TALLY4+NEXT INSTHUCTION 22491850 
@ (2340)50 22491860 
: IFL1=13 | Se ee 
ae 22491880 
@} FILL TOGGLE INSTRUCTION _ ee ee 22491890 
iF Kotani hades sched arlaaelatevatiltolkalckon ee : i 49i cm 
52 22491910 
@ | £0818)20 22491920 
ie FF) NEW VALUE OF 70 930 
5 CSCF) #1. eae py ee ea coe es (22491940 
@- CIFLJ 813 om oe | iad. | 22491950 
aie | = fe Nee ee cya ia SeeoLdKs 
@ 
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S n 0 ry * zy . a 5 TS 5 3 3 ~ 
aa ss > © oh 2 OS & D . 5 3 * = 


TEST TOGGLE INSTRUCTION 


CO%33)%0 
(SCF) #2 


TEST TALLY INSTRUCTION 


NOTES CONDITIONAL STATEMENTS GENERATE CODE AS FOLLOWS 


TEST INSTRUCTION 

CONSTANT 

CTIC CH "ELSE" PA 
INSTRUCTION © 


~~ BRANCH INSTRUCTION (BRANCH ARGUND "ELSE" PART) 
INSTRUCTION 


IF THE TEST INSTRUCTION YIELDS A POSITIVE parte 


NAW i) By * aol eG = 


BRANCH INSTRUCTIGN« 


O11 81=0 

{FFI =O, TEST. TALLY: = CONSTANT 
Sis TEST TALLY LSS” CONSTANT 
: R at LAN 
=3, TEST TALLY LEQ CONSTANT 
=4, TEST TALLY GEQ CONSTANT 
= a 

(SCF) =3 

CIFLIJ =13 


TEST MOD III I[/0*S INSTRUCTIGN 


22491990 
22492000 
pure 5. 10-1 sea 


22491970 
22491980 
22492010 


22492030 
22492040 


22492060 
22492070 


22492080. 
22492090 


22492100 
4 


22492120 


22492200... 


rere PMO 283 Oi oe ote reall 


22492130 


C6 eerie eer 


-~224921 
22492150 
22492160 


22492180 
22492190 


22492210 
22492220 


22492240 
22492250 


« 


22492270 
%140622492280 


22492290 
22492300 


_____ 2249 


NOTES THIS INSTRUCTION DOES NOT REQUIRE A FOLLOWING CONSTANT 


Q0433)s0 
CSCF] =4 
CIFLIJ *13 


1/0 ERROR TEST INSTRUCTION 


CX Rida hadaal KaadaatikarTaheatand oMnabiadladerks Xuate Ras) 
NOTE! DOES NOT REQUIRE FOLLOWING CONSTANT 


0324)=0 
[24'9}e BUFFER NUMBER If SPECIFIED OTHERWISE © 
CSCF] #5, TEST FOR PARITY 0*20 
69 TEST FOR BOT 
=7» TEST FOR EOT 
28, TEST FOR EOF (021) 
#9» MEMORY PARITY 
w¥0r TEST FOR SIZE ERROR 
omit» TEST FOR OATA ERROR 
_abee TEST. FOR, BLANK. TAPE | 


22492320 
22492330 


492340 
22492350 


22492360 
22492370 
22492380 
22492390 


22492410 
22492420 

49 10 
22492440 
22492450 


$140622492460 
%140622492465 
-¥140422492470 


22492480 
22492490 
22492500 
22492510 


22492520.” 


22492530 


2Rh92540 


22492400 _ 


se QR ee oe ne 
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(140622492940 


40623 


e Se @ 
CIFL) =13 22492550 
] 22492560 @ 
BEGINNA 0 QOP INS N 4 40 Re ae a mre eetiereret 
1 ORM ANeee 28 SB8n we BRB atanannea 22492580 
@ |: 22492590 
3 0% 2 P2600 pera 
4 C2489]=RELATIVE ADDRESS OF END UF THIS LoCP 22492610 
eo; (SCF J=1 22492620 
6 30 46.30 
; 22492640 
& ; ENTER SUBROUTINE INSTRUCTION 22492650 
19 22492670 
eo. [081)=0 22492680 
n2 ti)s Se Rte ceo Pe ee POO AO ios nt oe 
y (2822330 22492700 
C2489]"RELATIVE ADDRESS OF END OF SUBROUTINE 22492710 
s )= : Diait x tthe desk Ae 
CIFL 1=0 22492730 
22492740 
WA N R ON 2¢ 2759... 
TL eee oe 22492755 
22492760 
6 U : Y Oa a ate a ee 
P (SCF JeNUMBER OF SECONDS To WAIT 22492770 
@ » CIFL Jeiq4 22492775 
P DISPLAY INSTRUCTION %#140622492785 
S al Fee SHER %¥140622492790 
ba r0t1 #0 140622492800 
@ » C122 }50 NO THRU OR FROM MODIFIERS %140622492805 
80 = ROM z I 
: 2 THRU %140622492815 
@, C383 J*0 %140622492820 
< [682 ]50 <INTEGER? FOLLOWING THRU OR FROM 4140622492625 
p =]  <USER VARITABLE> FOLLOWING THRU COR FROM %140622492830 
@: =2 <BUFFER VARIABLE> FOLLOWING THRU UR FROM %140622492835 
C8110)=0 USE SIZE OF VARIABLE SPECIFIED IN L632) $140622492840 
P = OTHERWISE <INTEGER> SIZE 140622492845 
@ C16%6]= R*RELATIVE INDEX OF <USER VARIABLE> %140622492850 
; 24:9)= BUFFER OR PATTERN NUMBER %14062249285° ihe 
(33!1)51 THEN PAGE BEFORE PRINTING 4140622492860 
] (34%1]=0 SINGLE SPACE %140622492865 
=1 DOUBLE SPACE _ 3140622492870 
(3584330 DON" EDIT CMRINT STATEMENT) | %140622492875 
@ + 1 USE EDITCDISPLAY STATEMENT) na es %140622492860 
3633)a <BUFFER VARIABLE> TYPE ‘ %1409224928965) 
30 WRDCOUNT %140622492890 
& =1 100 %140622492895 
: =2 RESULT 4140622492900 ee Boece 
(3933}]= OISPLAY TYPE : %140622492905 
@} “80 NULL Pg ay , : ¥140622492910 
= 2 ER oe re : oo roe v6 492915 
=2 PATTERN %140622492920 
@; m3  <USER VARIABLE> (TALLY) %140622492925 
j = <BUFFER VARIABLE> SPEC N (3633) %140622492930 peer eeers 
° CIFL 1815 Be gt eee a ee ee $140622492935 
@ 
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wo 5 mn Sy TH ~ 
N 5 3 B® S , 5 


cE? 


eee" E> 5 8 Ya Of Cemetery 


22950240 0 


ARRAY ERRMESSLO2(CERRURMAX4+19) DIV 20)"1908139]3 22493000 
22493100 
_____ COMMENT. 3 y R MES 22493200. 
DESCRIFTIONS. IT IS NOT FILLED UNTIL A 22493300 
SYNTAX ERROR OCCURS CSEE FILLERRORMESS BELOW) 22493400 
ERSRRRARAEAEREEAR RAR ARERR ARR RRARA REARS EEE SS [ARAL AS OR kak * * coe 
DEFINE 22910000 
NROFRESERVED=25¢>» 22520000 
LNAMESCLNAMESII=LAYBELSTOsLNAMESI J&> 22540000 
ALNAMESCLI CONTAINS THE NAME OF LABEL L 22540010 
AR AREY AY BELLS A eee Se A re ee OSS NOON... 
ZTHE FORMAT OF LABELSELLJ CHANGES aS IAFORMATION CONCERNING 22950010 
THE LOCATION OF THE LABEK 1S KNUWNs AS FCLLOWS: 22550020 
eee a 225950030 
% 1) LABEL SEEN IN GO TO STATEMENT BUT NOT YET FOUND 22550040 
x 22950050 
sy ca la nt hs OY I 58 ete he re 50060 
% CSF J=MAXIMUM WEST LEVEL FOUR LABEL 22550070 
% CFF J=SEGMENT OF LAST BRANCH INSTRUCTION FOR 22550080 
% THIS LABEL 320090 
% CCF JSRELATIVE ADDRESS OF LAST BRANCH INSTRUCTION 22550100 
x FOR THIS. LABEL 22550110 
oar 
% 2) LABEL SEEN (LOCATION KNOWN) 22950130 
% 222950140 
SO a a OO ON SO: 
& C13i144 22550160 
% C2$1330 . 22950170 
% 336325 NT_ WHER AB 5 LOCATED 22550180 =i ait 
% CO39]SREL ADORESS WHERE LABEL IS LOCATED 22950190 
3 C1B:9]SNEST LEVEL OF LABEL 22550200 
% {2786)SSEGMENT OF LAST BRANCH [NSTRUCTION 22930210 ss 
% PRIOR TO OCCURANCE OF LABEL 22550220 
x CCF JsREL ADDRESS OF LAST BRANCH INSTRUCTION 22550230 
% PRIOR TQ OCCURANCE OF LABEL CIF LABEL 
% OCCURS PRIOR TO ANY GO TO STATEMENTS 22550250 
% FOR THAI LABEL» (CCFIF3"77777") 2229502460 
% Perera meer FP 5 0 
PNAMESCPNAMES1LI#PATTERNSCi*PNAMES1 I] #s 22560000 
ZPNAMESCP) CONTAINS THE NAME OF PATTERN P, IF PATTERN 22560010 
___4P_1S NOT NAMED» PNAMESEP) CONTAINS THE ALPHA REPRESENTATION 22560020 te eta 
ZOF Ps LEFT JUSTIFIED WITH FOLLOWING BLANKS(” EyGee 22560030 
% 43 " FOR PATTERN 13) 22560040 
% 22560050 
SXPATTERNS(CO,*)] OOES NOT HAVE A DEFINED NAMEs. THE FORMAT 22260060 
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8 Ooo00 
COMMENT WHICHBUFFER RETURNS A BUFFER NUMBER If TaG Is 23430005 
Or. | TRUG® THE NUMBER RETURNED IS THAT OF THE DEFAULT 23430010 
a ee RUF OR READS wWITH.PATTERN. Tek. W390015 
i SUCH AS “READ MTA PATTERN goocnz")" 1s ENCOUNTERED» 23430020 
@; IT IS NECESSARY TQ ASSIGN A BUFFER FOR PERPONUING 23430025 
ig = 0 B RON PATB CAN NUT 2 NC 2430030 ped 2 aetna oe 
: TT. WILE ‘BE USED To” WOLD THE ‘COMPARISON aISRCEATL 23430035 
er ae IF Te5 1$- FAG SES THE ROUTINE SCANS TRE SOURCE iNPuy 23430040 
ed Gre ENTE AND): ie fi i Oe a. . Ew: UND: eee 8 eae Oe 2 8 es © Ee: “a ot me! LF f 00 4 * 
@ 
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FOUND THERES 23430050 e 
23430055 
a R 000 ee iS Sek el he a 
FORMAT BFCX2sA3s eB"); 23441000 } 
LABEL XIT»TL3 23450000 | 1@ 
COMMENT@“THIS ROUTINE ASSUMES THAT THE VARIABLE wSIZen 23460000 = 3 
THE LENGTH OF THE SUBVECT BUFFER IN WORDS} 23470000 A 
SIZEt=MINCSIZE2#1020)3 23470050 |@ 
IF TOG THEN s eet A G08 0 0 ee é 
IF RBUFFSEMPT¥ THEN 23470200 7 
BEGIN 23470300 |@ 
IF RRUFFSENEXTB =MAXBUFFS THEN PRINTERROR(201)3 _ 23470400. 
GO TL3 23470450 bas 
END 23470600 |@ 
Aircel X= “Aner cere Ee a ne mi SAL OF OO ee oo ba 
BEGIN 23470800 Me 
WHICHBUFFER# =RBUFF 3 23470900 @ 
den.4. =M a 2SATOGS 0 se ie 
GO xITs 23471000 ‘e 
END 23471100 iy 
St FN a inne cael ee ty 
SCAN3 23480000 ia 
IF COUNT Le@ O THEN Peet ate ELSE 23490000 1 @ 
Bt=WHA F H OOOO 00 ire ide ee ge ee el 2 
BEGIN 23510000 - 
IF NEXTBUFFSMAXBUFFS THEN PRINTERROR(201) ELSE 23520000 2 @ 
Poeeeees © 2 eee cee cee |= "5 £101 910 Re ee ee, a 4 
MOVE CLs TESTBUFFER» BNAMESCNEXTBUFF J)3 23530000 2 
TLS 23531000 21 @ 
t2NEXTBUFF 23940000 2 
IF LST THEN 23541000 a 
BEGIN 23542000 21 
____OCTADESC3NEXTBUFF »BLCCOREADOR(JUNK)) UR BLC3"500000"))s = 23543000 ‘i 
WRITECLFILEC OBL Is BF se JUNK )S 23544000 1@ 
END3 23545000 Bai 
NEXTBL SNEXTBUFF S13 es DSO SONGD oo nos oe k 
END3 235600000 
BUFFERS[OsB),UCSFIS=MAX(SIZE*BUFFERS(0%B8],(SFI)3 23570000 31 @ 
WH : Ri=B? eee SR OOOO hat ae ba 
XITs ENDS 23590000 . ial 
ATONE IISIISIISISIIOIIOIIE IOUS SIOOUISIIISNO IIDC initio i iit titi e2 3600000 34 @ 
PROCEDURE STARTASEGMENT( SEGMENT#»TOG)3 23610000 Se OE a ee re rat ae nee oe : 
VALUE SEGMENT*TOGS INTEGER SEGMENT$ BOULEAN TOG} 23610100 . 40 
BEGIN 23620000 /@ 
COMMENT STARTS A NEW CODE SEGMENT. TUG IS TRUE IF —F-—s—so. 23620005 sis is a 
THE NEW SEGMENT IS A SUBROUTINE SEGMENT | 23620010. 4 
CIT IS DIALED INTO THE SIGN BIT OF -THE 23620015 4@ 
ICTIONARY ENTRY FOR THE. § 620020 | 
LABEL XIT3 23630000 49 
FORMAT SEGFCXS6,"START OF SEGMENT “s10C%#"),13)3 23640000 : | @) 
% | 23650000 
TF § NEQ 0 THEN 23660000 A 49 
PRINTERROR(900) ELSE 23670000 : : «| @ 
IF NOT TOG THEN 23671000 Pees, 61 
EMITLITERALCB&SEGMENTICTF 103 23680000 8 
SAVEAIBA$ Ats03 23690000 =| @ 
_StaSEGMENT3 23710000) BA 
IF LST THEN 23720000 . iy gee, SOR = 55 
‘ _WRITECLPILECDBL 3» SEGF 6895 23730000 Pen es 1@ 
MiT$ ENDS. 3 3740000 agit ke datas ei 
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a: 


Fo IIT TR OI I III III III III III II IG IIIS tot tog t04 906423750000 


PROCEDURE FINISHKSEGMENTCTUG)5 VALUE TOG BCULEAN TOG; 23760000 
RCE = 1 2. LEP e  n rO a P SS  eenee eOPPNE EORCOMIONIEY a) C 0 0116 Mag Repent Meee 
23770005 
COMMENT FINISHES A Saas IF TOG IS TRUEs A 23770010 
N 
OTHERWISE» A VO LUOP SEGMENT 1S BEING 23770020 
FINISHED» AND A BRANCH BACK [fU TRE 23770025 
LABEL XITi 23780000 
FORMAT ESEGF(X79s "SEGMENT "#139" IS"el4e" LONG» 23790000 
RC ee eoroienrRe MMMM! eo SME. 2E LEE © re rn OE Ea UL -1(° 5. 0016 eee eee ee 

% 23810000 
IF S=0 THEN PRINTERROR( 901) ELSE 23820000 

IF NOT TOG THEN Be 1) Dap Omen are Sean ena 
EMITLITERALCB&SAVEACCTSCF ))} 23830000 
SEGDICTESISeSEGDICTESISALCCTSFIRREALCTOG)C124731)3 23840000 

tt ae ON IN nS OOOO econ ie are 
WRITEC(LFILECOBL J sESEGRsSNADS 23890000 
LSEGt2MAX(LSEGsA); 23901000 


tet SIN ER ee 0 re ee 


$320} 23920000 
XIT% ENDS 23930000 
. [wy kx ken exXKX * * y Sots bone oa coe 
INTEGER PROCEDURE WHATPATTERNCTYPE)4 VALUE TYPES INTEGER TYPE 24220000 
BEGIN 24230000 
IMM \ ArA P fh a! () HF IR a ry b? A aah “hy p Ors a fee oor i PY, Se SOR Cee ae INSOLES Sam E 
HANDLE PATTERN NAMES AND DESCRIPTIONS IN THE 24230010 
COMPILER, WRATPATTERN IS CALLED WHEN THE 24230015 
RVED WOR HPA “RAS NC OUR ODO20..._ below a sree | 
SCANS THE NEXT ITEM FROM THE SOURCE. INPUT ANO 24230025 
TAKES ACTION AS FOLLOWS? 24230030 
1) IF THE ETEM SCANNED 15 A NUMBER» AND 24230040 
TYPE IS LSS Os NHATPATTERN oe 24230045 
NUM SS OH @ Lhe 8 0 peepee nein een Ono eR ee 
TYPE GEQ Or A SYNTAX ERROR MESSAGE 24230055 
IS GENERATED, 24230060 
230 Sie aeantetmchipe eT cc: tam 
2) If THE ITEM SCANNED IS AN IOENTIFIERs 24230070 
A CHECK 15S MADE TO DETERMINE Tr 24230075 
THE IDENTIFIER HAS BEEN PREVIOUSLY 24230080 _ 
ASSIGNED TO A PATTERNe IF SOs WHATPATTERN 24230085 
RETURNS THE INTERNAL PATTERN NUMBER OF 24230090 
HAS NOT BEEN SEEN BEFORE» IT IS ENTERED INTO 24230100 ti‘i‘ 
ENSUE SENG NT ART T=ON 1 AND PATTERNGENERATOR 24230105 
) Q: YNT a a x * a ae . ¢ Y i. rer 
OF THE PATTERN CUNLESS THE PATTERN IS A 24230115 
TAPE LABEL EL NERN Me THE DEBL ANKED PaTTERN 24230120 
NESCRIP N Pp » N NKB K 230 
SUFFICIENT. SPACE REMAINS IN POESCE*)> THE 24230430 
DEBLANKED DESCRIPTION 1S MOVED THERE AND 24230135 
PP IS UPDATED TO.POIR O TRE NEXT AVALLABL 230140 Jz 
WORD IN PDESCL*), OTHERWISE POESCL®] I$ 24230145 
WRITTEN TO OISK AND A NEW DESCRIPTION RECORD 24230150 
LAR -0 230 
24230160 
3) IF A NUMBER POLLONED BY A. aren 1s FOUND: 26230165 
a THE PATTERN 1S GIVEN THE NAME "000.4888". 242301470 
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r @ 
WHERE DDDeee IS THE ALPHA REPRESENTATION 24230175 
) oF NEXTPATTERN, ACTION is THEN TAKEN AS 24230180 e 
AR 2 iN a dj : RA —2HMRAO0PB5 
TS INCREMENTED BY “ONE PRIOR TO EXITING 24230190 
@ OF THE ROUTINE: 24230195 oe |@ 
’ \ KNOWNSTYP OOOO 3 
BOOLEAN SAVEPATICRN NOP ATT; A CTLGs 24260000 ‘ 
e LABEL XITs WRAP» NEWSEG) 24270000 |@ 
AB B58 19 0) 6 [na vo el ae ee ee 6 
LABEL DUPGOOFS %140124270200 7 
@ REAL TieT2sT33 %140124270300 |@ 
REAL MFIDsFIDS 00 NOT DECLARE ANY VARIABLES BETWEEN THESE 24280000 i 
@ FORMAT PFCX2sA3e"=p")} 24290000 @ 
ee ate OOOO ee rot saat, 
SCAN} 24310000 e 
e IF KNOWN THEN 24320000 i 
> N (WOO Oo. 2 soe bis 
IF CWHATPATTERNS=WHATWORD(TESTBUFFER»PNAMESLO )» 24340000 ‘6 
@ NEXTPATTERN)) LSS O THEN 24350000 hed 
18; 
. ~WHATPATTERNS 203 24370000 a 
@ | PRINTERROR(100)3 24380000 @ 
ND 00] © 5 Ue bare eracparetvene eee ce -ravw ean y ee ET ee 
p TLS=CQUNTST22=F LRSTSCANST3S=CRD3 %140124390100 a 
Oy SCANS %140124390200 73@ 
P A HR=E"¢(" THEN GU P GO AST aNSSFIRSTSCAN; 3 PUBIO S90 06 ian oles echt ee oe ee eo a 8 24 
i END ELSE 24400000 : 
@ BEGIN 24410000 | @ 
4 UN T 20 ala e B rik NEQ "C¢" PRN FROA RA OR é 4 0000 asia Ghote 
re ELSE 24421000 
Or IF SAVEPATTERNSSCOUNT GTR @ THEN 24430000 
| IF WHATPATTERN! SHHATWORD( TESTBUFF ER» PNAMEST OJ» NEXTPATTERN) 24450000 
@ GEQ O THEN %140124460000 
_%140124460100 
, T1S=COUNT#T2t=F IRSTSCANJT3%=CRD3 %140124460200 
@ SCAN} %140124460300 
6 . : HR HEN 46 OO ety rh 36 
DUP GOOF? %140124460500 r 
@ BEGIN %140124400600 | 4@ 
IF CRO=T3 THEN BEGIN COUNTSSTIsFIRSTSCANS®T2SENDS  %140124460700 _ 3 39 
PRINTERROR( 3039) %140124460800 ! 
@ END 4140124460900 «|@ 
LASTSCAN! =F IRSTSCAN3 %$140124461000 ee 42 
GO xIT: : ¥140124461100 ‘ 
@ | ENDS ao %140124461200 mes 4@ 
| IF WORD*27 AND COUNTs9 THEN 24470000 7 : 45 
BEGIN 24480000 sc 
@ MFID@tS"ONLINE "3 FIDS="TESTAPEN; 24480050 «| @) 
8 4480100 ‘8 
IF BRECTALCHREM a” THEN” 24480200 aa 4s 
@: 24480300 2 ) : 1@ 
: asts | : Na | | | 24480400 oe lec | a | 51 
1F St ieril CDENTIE ERCP 1s SOMERS CAGE DE 0 THEN 24480500 5 
@} PRINTERROR(130)3 24480600 : at 
ND 24480700 5 
5] "ELSE. LASTSCANS=FIRSTSCAND 24480800 5 
Or. ‘TF WOT TAPEQUATED THEN - 24881000 - 
ey _MOVE C2 ME ILDsWEADERC 20)93 24481100 i 
@ @ °@ 


oonzx 7D Nn F WN = 
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us 


A A A ee ee 


a 


on 


a : 


LTQG&=TRUES 


MOVE CL »COMPAREBUFFCE/7 JsTESTBUFFER)» ®SRESTORE “TAPELABE"™ 


24310000 
24510100 


SN a eee ee ee ee A OO Oi oe mat it Secehe te ee 


IF NOT RESWROCHK THEN GO XIT3 

IF NEXTPATTERNSMAXPATTERNS THEN PRINTERROR(103) ELSE 
a WHATPATTERNESNEXTPATTERNS 

IF LTOG THEN 


CHRSte"Fe3 SIZEts93 
ACCUMULATGCR# sCOREADORC JUNKBUFFEREL 91923 
GO WRAPS 


24521000 


24530000 
40000 


24330000 
24560000 


24570100 
24570200 


ee a et A OS POO Oe, 


END ELSE 24570400 
SCAN} 24580000 
ctr ws om eer TE Raa eee DUO OO OG. itt eh 
PRINTERROR(101)3 24591000 
END3 24600000 
ACCUMULATOR t=CORFADDRCJUNKBUFFERDS 2U620000. ww on. Goad cones ate 
CLEARCJUNKBUFFER»® (60) )5 24630000 
JUNKBUFFERCS9I]2=REALCNOT FALSE) 24640000 
IF Lal Ghd Nps OOS are sed i pS noe ate ent aad Se ens 
IF SIZES eC (CMRSteTESTBUFFERLOJ)+7) DIy 8 GTR ren THEN 24650000 
PRINTERROR(105)3 24660000 
_ SAVINGE#TRUF? ; . caer BOA Roe ime steel 
SCAN3 24670000 
IF NOPATTERNS#SPECTALCHR WEQ "C" THEN 24680000 
Eeoaeect aoe TF SAVEPATTLERN THEN 8 ee a MOV OOO aa ee a 
PRINTERROR(106) ELSE 24700000 
ELSE 24710000 
OT INOOO 
IF PATTERNGENERATOR(CHRSs"1) THEN 24750000 
PRINTERRORCERROR) 3 24760000 
HRS=0 N Ze t= NI+ 83 a ate es UE OOO a ote ag 
SAVINGS ®FALSE; 24770000 
END} 24780000 
IF NOT NOPATTERN THEN OOOO 
BEGIN 24800000 
WRAP $ 24810000 
IF NOT SAVEPATTERN THEN 248zg0000——s—s—sts 
BEGIN 24830000 
PNAMESCNEXTPATTERNI $= 24840000 
N PA RN $ 48 SQ000Q ss a 
O&DECMAL CNEXTPATTERN) (11498 5J&" "[6%ta42et6) ELSE 24860000 
O&DECMALCNEXTPATTERNICL237241I8" "C12%4226)5 24870000 
__ __ WHATPATTERN? =NEXTPATIERNS 24880000 eee 
ENDS eS, 24890000 
IF LTOG THEN : ; 24915400 
BEGIN ET#s03 GO LABELFIxs ENDS 24945200 As 
IF ACCUMULATORe(CF] GTR COREADOR(JUNKBUFFERLC29)) THEN 24916000 
PRINTERRUR(117) ELSE 24917000 
IF PP,CEFISEMPTY THEN 24918000 = — 
NEWSEG! © 24918500 
BEGIN 24919000. 
_PATTERNSLO*NEXTPATTERN] S=CHRSQSEGNOLCTFIE 920000) 
SIZECCTSFJ3 24921000 
MOVE( 30s JUNKBUFFER*PDESC) 3 24922000 
PPt=(ACCUMULATURS CCF )=COREADDR( JUNKBUFFER) 24923000 ae eer 
+L) &SEGNOCCTFI3 ae (24924000 
24924500 


; SEGNOt BSEGNO+15: 


LHO0 
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IF ETS SACCUMULATOR LCF I*COREADOR( VUNKBUFFER) +1 24926000 


GTR 29°PP.CCF I THEN 24927000 e 
es ct te a SE gS rg A ON at ee ee ee 
WRITE CCOEFILEs 30sPDESCE#1)4 24928500 
PPLsIV7PP7777777%3 24929000 : |@ 
a ep ae Re a i le OOO. Sta, ee tae OT ie ess 
ENQ ELSE 24931000 4 
BEGIN 24932000 |@ 
Bs ih i ha tees MVE CE oe OUNKOURE ER®PDESCUPPS ECE J2 9 55 fo PRIS 3500 a ‘ 
LABELFIX: 24933600 : 
PATTERNS [O*NEXTPATTERN] $©CHRSQPPLETF) 24935000 |@ 
PRB OES RSIZELCTSFUSUU|[U[UCUCUCULUCULUCCCCC C(O 3 
PPi=PPtET} 24936000 . ii 
ENDS 24937000 |@ 
psa ot a aN a 8 aa ret a eg tenes ot SOOO ese es Behe 2 
BEGIN . 25000000 . 
OCTADES( 3#NEXTPATTERNsCOREADDR(ET))3 25001000 |@ 
ae ea WRITECLFILECOBL J ePFeoET Cisi7 ye BONBON is 
ENDS 25003000 by 
NEXTPATTERNS=NEXTPATTERNGLS 25004000 |@ 
MEPIS) SOOO 1 Bing ste Satine ictal 2 cn tse Pee Se es be 
IF TYPE LSS 0 THEN WHATPATTERNS2@CHRS 25040000 1@ 
ELSE . 25050000 7 
soca PR NESE PROS GP os a DR ORONO. ck ee Eg a 
END3 25070000 sj 
XIT3 SAVINGS=FALSE3 ENDS 25060000 21 @ 
a6 Stee te te ete ee ete ie dee ee tee te ek kee hte ee ete ae tee We ee 250 B1000 _ Set eat eet pal 
DEF INE 25082000 ; 
EMITCEMITLsEMIT2s EMIT3s EMITS) = 25083000 | @ 
EMITLITERALCEMITISEMITOLCTSCRISEMIT3CCTFISEMITaly:47t3))#s 25084000 | 2 
Fe ee III IRI RII II IG OI IOI IID I IDG GIGGING iicenine %#25090000 : 
REAL PROCEDURE wHATLABELCKEY)$ VALUE KEYS INTEGER KEY3 25100000 
BEGIN 25101000 
COMMENT IT KEYsOs LABEL IDENTIFIER OCCURS IN A 25101005 
"gO TO" STATEMENT, IF THIS IS THE FIRST 25101010 
__OCCURANGE OF THE LABEL IDENTIFIER, IT IS PLACED 25101015 
IN LNAMESINEXTLABEL] ANG A NEW LABELSC*] ENTRY 25101020 
IS INITIALIZED FOR THE LABELe THE VALUE RETURNED 25101025 
a LS P77 P7777 77 CTS 1S EMITED INTO THE CODE == ss 25101030 fe 
STREAM BY THE CALLING RUUTINE CSTATEMENT™) AND 25101035 is 
MARKS THE FIRST OCCURANCE OF THE LABEL» IF THIS 25101040 a ® 
IS NOT THE FIRST OCCURANCE OF THE LABELe BUT ITS 25101048 Rute ce oe i 
LOCATION IS AS YET UNKNOWN» THE LOW URDER 30 BITS 25101050 
OF THE LABELS(C*) ENTRY FUR THE LABEL IS RETURNED, 25101055 «|@ 
ABE * NTRY , TH QA OI 25101060 = — es 42 
THE CURRENT SEGMENT AND REL. ADDRESS « IN THIS 25101065 i 
WAYs THOSE BRANCHES TO THE LABEL WHICH oCCUR PRIOR 25101070 re 4@ 
TO THE LABEL ITSELF ARE LINKED TOGETHER WITH THE 25101075 oh bs 
LABELSL*) ENTRY POINTING TO THE LAST SUCH BRANCHe 25101080 
IF "LEVELCOUNT" IS NONE IN ELTHERX OF THE ABUVE CASES» 25101085 . |S 
A NOUOP ¢ ial N SOAR PRO ) O90 48 
SUFFICIENT SPACE FOR A JVMP Out INSTRUCTION IF GONE. 25101095 a 
18 REQUIRED) IF THE LOCATION OF THE LABEL 18 KNOWNs 25104100 | @ 
BRANCH R ON YO THAT LOCATION JIRNEO 6B 25101105 al 
THE ROUTINE. 25101110 7 
25101115 «| @ 
IF KEYS1s THE RESERVED WORD "LABEL" HAS JUST OCCURED 25101120 a Fe 
AY THE BEGINNING OF A STATEMENT. IF THIS IS THE FIRST 25101125 ES) 
OCCUNBREE ‘OF THE IDENTIFIERS A NEW LABELS(#) ENTRY | 25101130 cq @ 
: » Te S IS-NOT THE FIRST UCCURANCE. OF TH 25101135 : ee de 5 
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s 0 y 


owe n~ on no F wn = 


3 


a 


oN 2 


8 8S SSRE SES 


IF COUNT. LE@ O THEN PRINTERROR(161)3 


A : Renan 7777777 HESl3ta2te 
SLEVELOUUNT(1813919)3 
oA eee ores 


_ AF NEXTLAGE LAN ARLAGELS: coe Ce eee ELSE pe 


25450000 


25411000 
25420000 


25431000 
25432000 


IDENTIFIER» THE LABELSE*] ENTRY FUR THE LABEL IS UPDATEG 25101140 
TO INDICATE THAT THE LABEL HAS BEEN FOUND; 25101145 
A R H 00.0 
LABEL XIT3 25104000 
SCAN} 25105000 
f al J HO0OO0 
BEGIN 25107000 
BEGIN 25107100 
WORD S40 HE AN CANS ato skovere 
IF WORDETST THEN 25109000 
IF NOT (CONF OR LIBONLY) THEN PRINTHERROR( 164) ELSE 25109050 
DUNT#O THEA HATL AE bd 6G le As Be ete Ens et kee POO G0: 25. 
ELSE PRINTHERRGR( 814) 25109200 
ELSE 25109300 
G 
IF COUNT LEQ 0 THEN PRINTERROR(161)3 25111000 
IF LEsWROCLNAMESCOIJsNEXTLABEL) GEG O THEN 25117000 
eiersi re __IF-NTIISLABELS(L] LSS O THEN 
BEGIN 25118100 
IF NTQ2S=LEVELCOUNT*NT1e(,1689] LSS O THEN 25118200 
R 
IF NT2 NEG O THEN EMITCI0¢NT29051)3 25118400 
WHATLABELS=8QnT1027%83315) 25119000 
ALL) ¥ 106 
ELSE 25120000 
BEGIN 25121000 
-LEVELCOUNT GTR QO THEN EMITLITFRAL COIS Fs TOO 
WHATLABELISCNTI.C27¢21] &LEVELCOUNTECTSFI3 25122000 
LABELSEL IU 23ARSCCTFIGMIN(NTY .CSFISLEVELCOUNTICCTSFI3 25123000 
vf 000 
ELSE 25125000 
BEGIN 25280000 
IF V OUNT G QO THEN Eml R 03 Bi 00 
IF NEXTLABELEMAXLABELS. THEN PRINTERROR(E12) ELSE 25290000 
WHATLAREL tS3"7777777777"8LEVELCOUNTUCTSF IS 25300000 
ABFI SCNEXTI AB Lee Ars j& ri COUN : : 310000 
JUNKBTSRESWROCHKS 25311000 
MOVE Cis TESTBUFFER*LNAMESCNEXTL ABEL) )3 253290000 
NEXTLABELSFNEXTLABEL +13 25330000 
ENOs 25340000 
ENO} 25341000 
END} < p5341100 
IF LtsWROCLNAMESCOJsNEXTLABEL) GEG 0 THEN 25350000 
BEGIN 25360000 
F_NTISSLABELS SS_Q THEN PRINTERRORC813) FUSE 2370000 
IF NT239NTY,CSF) LSS LEVELCOUNT THEN 253680000 
PRINTERROR( 163) uae : 25381000 . 
8 ah § ta2%6 Cie ENT 2b ins 3939 HeOdO 
ENO 25390000 
ELSE 25400000 


OOO 2 


25460000 


SA7TOOOH 
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oe NO TF fF WY HY = 


XIT3 ENDS 25480000 
Fae II I GIO IOI OIE IOI I IOI III OIG ei tog #6 25530000 
PROCEDUR i MENTS OR WAL Be ORS OOO O08 et a 
Rete kwktkkehe he ewe ak i eek tO tok ka to tikka ek 25550000 
PROCEDURE. COMPQUNDSTATEMENT? 255460000 
B rOO000O FF 
LABEL SEMICOLONsAITS 25980000 
SCANS SWORD PREVIGUSLY IN TESTBUFFER WAS "BEGIN" 25590000 
Ar a 20 __ 25600000 ieee eas ay er le 
BEGIN , 25610000 
STATEMENT? 25620000 
F_WROCRESFRVED 230 | YB et ee Oe DOU) hn os ee 
IF NOTCCOUNT=O AND SPECT ALCHRE"3"™) THEN 25640000 
PRINTHERROR(119)4 25641000 
MI COLON 25650000 pe 
SCAN 25651000 
IF SPECIALCHR="3" AND COUNT=O THEN GO SEMICOLONS 25652000 


sa EN a a 6 be 
XIT& SCANS ENDS 25670000 


Tea se TI III IUGR IOI OOO III GR IGG to iio icididt ii 2 5810000 


PROCEDURE CONDITIONAL STATEMENTS 25820000 
BEGIN 25830000 © 
INTEGER Als A23 - —_ 25840000 
-ABFL XIT3_ : 850000 
4 25860000 
Alt=zA3s EMITLITERAL(CO)3 25870000 
Ses IN 8s a en a ae lw IO OO Oi cee oe tls ct peat tien ns a el phe ly th vane, ga 
IF WORD NEG ESLE THEN 25881000 
STATEMENT? 25890000 
IF WORDeESIE THEN ———“—*~s™S™S™*~™~™~—~—~—~—S—CCCC“‘S’CC#COB QQ” Ceca 
BEGIN 25910000 
A2s=Aa3 eee 25920000 
ODELAL)IF=BRA Fli Sacie 9990000: 2. feo. 
IF DEBUGN THEN SRT ATC OCTCEPE ETE 25931000 
ALtsAZ} 25940000 
oe Se GANGS a a OOOO 
IF WORD NEW ESLE THEN 25951000 
STATEMENTS 25960000 
3 25970000 
CODECALIS=BRACCTSCFIASCCTFI5 25980000 
IF DEBUGN THEN DEBUGOUTCCODELALI»S»A1)3 25981000 
ND 3 : 5990000 CS, 
chee ca uae Rae os a cs Cor 
PROCEDURE DOLOOP: 26010000 


4 
AQ 00 ¢@ 


26020005 


"COMMENT O00 LOOPS CAUSE THE FOLLOWING CODE TO 


BE EMITED? 26020010 
eee 26020015 ee ee 
BRANCH TO Loor SEGWENT CIF LEVELCOUNT=0) ' 26920020 
BEGINNING OF LUUP INSTRUCTION 26020025 
N Te Tio 6920030 
r 26920035 
>. - 26020040 
oF LOOP INSTRU [ON 6920045 
aRLAGe BACK TO SEGMENT O CIF LEVELCOUNT#1)3 26020050 
26020055 
NTEGER AloL3 26030000 
BOOLEAN SEGTOGS ‘ 26030100 
ee ee ae “ao ee 26040000 
IF  COUNTASLEVELGOUNT#1@MAx EVES THEN . : 6950000 
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LEVELCOUNTS=13 a 26281350 


ae etme aha Ei emeacld aaa 26281400 


e @ 
PRINTERRUR(3) ELSE 26060000 

@ SCAN3 26070000 

TF WROCRESERVED*NROFRESERVED) 211 THEN 26040000 ee 
1 IF SEGTOG?=S=0 THEN 26090000 

@): STARTASEGMENTCNEXTSEG!=NEXTSEG+L eFALSED3 26100000 

3 oe EMITLITERAL(C3"100")3 26100200 _ 

4 ALS =A} 26110000 

@ |: STATEMENTS 26120000 

6 FOR LS=NEXTLABEL@1 STEP =1 UnTIL O CO 26120100 __ 

7 IF CNT1$#LABELSCELJ) GTR O THEN 26120200 

@ | LABELSELI.« CSFIISMINCNT1 CSF I> LEVELCOUNT@1)3 26120300 
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IF w=36 OR weé2 THEN 4140028444000 
BEGIN 4140628445000 21 @ 
Jtsi W=36)+ 223 ____ 4140628446000 2g 
SCAN; %140628447000 37 
IF COUNT LSS O THEN : % 140628448000 4 @ 
F 4ai! Q FRiQ] R 1020 THEN . 4140628 9000 fete cot tk 33 
PRINTERRUR( 306) %140628450000 
ELSE NT4ts0 %140628451000 «|@ 
ELSE $140628452000 _ 7 c 
BEGIN | %140628453000 | ‘ 
SIZE%203 %140628454000 : beg @ 
IF WiaHORO@TLLY THEN NTGtal ELSE %$140628455000 au 4s 
IF W252 THEN NT4Q?2=22 ELSE 2140628456000 46 
PRINTERROR(306)3 %140628457000 171 @) 
ND3 %¥140628458000 g 
NT2EENT2QNTO(COSG6I2T) *140628459000 ios 4s 
IF NT120 THEN : %140628460000 sq @ 
BEGIN ee ses %149628461000 , 51 
NT2eL24t9)baNTII=13 %140628462000 a , 
ENDS %140628463000 @ 
END ELSE 2140628464000 _—__ 54 
PRINTERROR(401)3 ; a | | %140628465000 ot i 5 
SCANS 7 ee ates 4140628466000 artes «| @ 
GO FINOISPLAYMODIFIERS# : os he %140628467000 | ee ee 5 
@ ® 
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@ @ 
EMITDISPLAYS %140628468000 
é , IF NT3 GTR 4 THEN PRINTERRURC402) ELSE 2140628469000 & 
TERA H : SIZE Le 01016 fo ee a ee cee 
1 XITS %140628471000 
@. ENOS | %140628472000 
3 LALA RARER RRA RRR RAR RRR LARA PRA RARE RARER RA RRA RRA ERLE LLL LET wk R9QO00HD i eh ee Ae eS Ae 
‘ PROCEDURE STATEMENTS % 140628910000 
@ |: BEGIN %140628920000 
6 AR 9 04228 O000 sss Ss Ohio 23 
uy 8128295325458 52S69S79S599S 1095129843985 14954598 169S179S18s. %140628940000 
& ; START» %140628950000 
BGNs IO Sl Arcee 2 att eons oe ENON BS BDO Oe cin: cee ee hae at 
no XIT3 #140628970000 
er SWITCH SW22S12S25S39S49S5s36eS7oXITeS99GP SLOP BUN? %140628980000 
pa a 1 10 Te 1 Lo $1298.39 S149 S15 9S166S 179818 2140628990000 
hI ; %140629000000 
@™ START! %140629010000 
re eer een JUNKBSSFALSE3 00g 29020000 ———C—s 
he IF COUNT LEQ O THEN %140629030000 
@ iu BEGIN %140629040000 
8 oe i eee A Ee a HEN : : Bae SG uo as 
9 JUNKB&SCOUNT LSS 03 %140629060000 
@; PRINTHERROR(2)3 %140629070000 
; : 
P IF WteWROCRESERVED»NROFRESERVED) GEQ OC THEN 140629090000 
@ GO SWCW41) ELSE %140629100000 
ia see ee BE GN eS re ge sh POOP TN OOOO acre pen my 
P JUNKBtSSPECIALCHR2"3"3 ELSE %150129120000 
@ PRINTHERROR(8)3 %150129130000 
27 tek ANS EHO BGTMONODri i 
pe ENDS 4140629150000 
@& IF JUNKB THEN GO XIT ELSE SCANS %140629160000 
P 0) AK 62917000 Rn aeRO nae NY 
: Sit %INPUT %140629180000 
@ | SCANS %140629190000 
‘ IF WORDSTLLY THEN EMITLITERALC1) ELSE 140629200000 eT anaes 
p PRINTERROR(305)3 140629210000 © 
@ | Roane %140629220000 
i ; 62300 
p S23 Soreri ay %140629240000 
Oe NTiseg3 _ %140629250000 
ps IF FALSE THEN %140629260000 
$143 %PRINT | %140629270000 
T aD NTL3=63 %140629280000 
2 DISPLAYSTATEME Th) Qe2929 = 
3 GO XIT3 %140629300000 
@ $3? %00 7 29310000 
DOLOOP? 29320000 
SCAN3 29330000 
er GO xIT3 29340000 
S4t £FILL 29350000 _ ee 
SCANS 29360000 
@} NTLtSNT2t803 | a ” 29370000 
LF WtsWORDeTEl HEN fae =: 9380000 
BEGIN a. 29390000 
@ |: SCAN 29400000 
54 IF WORD=WTH THEN SCAN ELSE PRINTERROR(SO1)3 _ 29420000 
Be ae WORDSTLLY THEN : : 29420000 
@ a BEGIN: Scan) NTAGe45 ENDS ; 29430000 
Uae 5 hi  Necdes ile N AN § ahd eos ove 9 0000 
@ 
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. 2 * y : 3 
> & on b GS o& 5 7 


(Fs 


29500000 


femmes =A >> 1°16 [9] ee eee eee 


IF SPECIALCHRE"*" THEN 29450000 
BEGIN NT28=12 SCANS ENDS 294600000 
selec fe ee me : 2 29470000 
EMITC1L39 02 0eNT1)3 29480000 
EMITLITERALCTESTBUFFERCOJANT201247911)93 29490000 
END ELSE 29310000 
IF W=TGLE THEN 29920000 
a Nc ce a de a ne 
SCAN} 29540000 
IF WORD=WTH THEN SCAN ELSE PRINTERROR(501)3 29550000 
fae = } 295460000. 
IF WORCZEURT THEN NT1%=1 ELSE 29970000 
PRINTERRUR(504)3 29580000 
eee Let ; Sa eeaie ec eera eee ~~ 29390009....... 
SCAN3 GO xXfT3 29600000 
END ELSE 29610000 
_IF WORDSBUFF THEN BtswHATBUFFER FLSE PRINTERROR(500)3 29620000... 
SCAN} 29630000 
IF CW38WORCEWTH OR JUNKBS=NSUSING) THEN SCAN ELSE 29640000 
oe ER R j 
IF wORD#PAT THEN 29660000 
prreee teeny: CSF JisMAX(BUFFERS(CO%8),CSF J» 29670000 
CO»sPrSWHATPATTERNCRE NK eeaesre 
SRINteReGRtGor 29690000 
EMITC4sBePe)3 29700000 
ee a ST 2 UE Smee ea eee erp ee crate BOT POO Ona ss 
GO xITs 29720000 
85! BROTATE 29730000 
IF WORD2BUFF THEN Bt=wHATSUFFER ELSE 29750000 
PRINTERROR(601)3 29760000 
__SCAN3 29779000 
IF SPECIALCHR#"+" OR JUNKB? SPECIAL CHR3"%=" THEN 29780000 
BEGIN 29790000 
ye eS et AND stata a oe POO DOO en ot ahs 
IF COUNT LSS O THEN 29810000 
Ip NTVteTESTBUFFERCO] LSS S8x(BlUFFERSDCOs9),£SF1) ThEN29820000 
= EMI1C5»BeNT1»REALCUUNKB) ) 29830000 
ELSE PRINTERROR( 602) 29840000 
ELSE PRINTERROR(603)3 29850000 
_____ END ELSE 29860000 
PRINTERROR( 604); 29870000 
BUFFERS(O»sB]:="*ABSC(BUFFERS[O»8))3 29871000 
SCAN3 ___ 29880000 
GO xITs ; ees . 29890000 
$63 &SSHIFT 29900000 
SCANS. 29910000 
IF WORDSB8UFF THEN B?=WHATOUFFER ELSE 29920000 
PAINTERRORCTOI)» 29930000 
9940000 
IF CJUNKBT = SPECTALCHR S47) QR SPECTIALCHRevan salad 29950000 
erGIN: 29960000 
8970000 
IF “COUNT LS5 0 THEN 29980000 
BEGIN 29990000 
IF NTZFSTESTBUFFERCOJ] GTR NT ese 390000000 
Ox(BUFFERS(O*B).°CSFI). THEN: : 30910000 
iF SLE A eae Div 8) LEQ ee THEN i 30020000 
FFERSCOsB).0SFIeenT ti 90030000 
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a a ne ee ne oN en ee 


) @ 
PRINTERROR(702)3 30040000 
) BUFFERSCOsB]!="*ABS(BUFFERSLO*BI)3 30041000 e 
1 | END ELSE PRINTERROR(703)3 30060000 
@ | END ELSE . 30070000 
3 PRIA RROR 0 : HNO08O0000 
4 SCAN} 30090000 
@| GO xIT3 30100000 
8 S$ COMPAR O110000 
7 SCANS . 30120000 
ei IF WtsWORD=PAT THEN . » 30130000 
8 FfsM PS een 
bg CPt sWHATPATTERNC1)+MAXBUFFS)=MAXBUFFS],CSF]) 30130200 
er ELSE 30130300 
2 wan LW BUFF THEN PSSWHATBUFFER ELSE ||| | [UU 0140000 
n PRINTERROR(801)3 30150000 
eo. SCANS . ; 30160000 
ns ___IF = : eos Bes A! 
8 IF WORD=RUFF THEN BS=WHATBUFFER ELSE PRINTERRGR(B01)5 30180000 
e” SCANS 30190000 
; —_______ IF Wt=WORDSNONOQ THEN 0 149389019000 
9 BEGIN 30190200 
er NTite7eicararsyds 30190300 
1 a 5 
p2 END ELSE %140330190500 
@- IF w=NOE THEN %140330190600 
P ge IN a a ee i Ge re, AO OO POO ee ne 
NTAts7RiL3¢4724)3 %140330190800 
@ SCAN} %140330190900 
7 Np ; 0191000 ee eee 
Bs NTL3:373 ¥140330192000 
@ re EMITLITERALCNTIGBLCTSCFI&PLCTFIRREAL CUUNKYS =WURD=UN) (1847234124 30200000 
HO NIKE HEN SE OC tee a ee sem ot 
GO xXITs 30220000 
@ $98 SLABEL 30230000 
_NTLSSWHATLABFEL(4)3 00 dG 
SCANS 30260000 
@ IF SPECIALCKR NEG "3" THEN PRINTERRURC815)3 30270000 
6 AN3 OgkhO000 erent oe 
GO STARTS | 30290000 
@» Et , 30300000. 
: SCANS 30310000 
IF WORDRERR THEN CONDI STIONALSTATEMENT ELSE 30320000 
@ PRINTHERROR(810)3 30330000 
GO XITs 30340000 
aa Gt . 30350000 
@ EMITLITERAL CWHATLABEL(O))3 : 30360000 
: AN. ; : : : ' ¢ U0 0.06 Ree ee eae tan 
GO XITS 30380000 
@ S108 30390000 
; BUNTSO THEN EM ITERAL (C63) ELSE 0000 eae 
EMITLITERAL C1003 Lae 30410000 - 
i SCANS be Has ee ere ae 30420000 
. oO xt Bees : ee Bien dare es 30430000 
a4 BGN! %BEGIN 30440000 
i COMPOUNDSTATEMENTS 30450000 
p ¥ : 0460000 
55) TOt. eee ee ee ee ee, ee 30470000 
Or - TOSTATEMENTCWH1193 a ee ee ce ~~. 390480000 
@ 
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0 2) ‘ * E : 


oovroaneruon — 


= 


= 
= 


= 
nw 


= 
> 


A ee 2 ee 2 ee A ee ee ee TE 


BB 


a: 


$12! TEST 30200000 
IF NOT (COK\F OR LIBONLY) THEN 30501000 e 
PRINTHERROR(164)3 30501200 : 
GO STARTS 7 30501400 : 1@ 
ee sas NS le oy Tae fee eres On SEO OU ROO ES ecw oleate eens 3 
IF LEVELCQUNT NEQ O THEN 30510000 ‘ 
PRINTERROR(814) ELSE SCANS 30520000 |@ 
F 1 0 THEN PRINIERR oy: 30530000 ss 6 
IF NTiteTESTBUFFERLOJ GTR 63 THEN | 30540000 
PRINTERROR(817) ELSE 30550000 o|@ 
TF BECCTESTARRAYINT1]efiti}) THEN = —i—“‘;*™*C*C*C—és SOOO 2 
PRINTERRCR(818) ELSE 30570000 
TESTARRAYLNTIJi=<A3 30580000 /@ 
a TE THISTEST GEQ 0 THEN OOD ” 
TESTARRAYCTHISTEST )e LFF IS=REALCMAKETAPE)3 30600000 13 
MAKETAPESSFALSE; 30610000 @ 
__NUMBEROFTESTS#=MAX(NUMBEROFTESTSsTHISTEST#SnTi)3 ss 908020000 ———‘“‘(<—‘i~;~™~™~™~—~—s—sS 3 
SCANS IF SPECIALCHR NEG "3" THEN PRINJCRRORC{15) ELSE 30630000 bi 
SCANS GO STARTS 30640000 |@ 
Si3t %1F bee OOO COU cece locust spodRea cane eee Pe "9 
JUNKB!=FALSES : | 30651000 18 
BOOLEANEXPRESSION; 30660000 4@ 
ONDITIONALSTA id 0790000. =i‘; OR 24 
GO XIT3 308000UU 29 
$153 S"SUBROUTINE” 30801000 23 
ca SSR VBE ON ac ce an ae eed IA OO aw sit es oe se ee apes 24 
IF HEADER(21) GTR O THEN IF NO STACK CARDeoe 30802400 i 
HEADERC2LISSHEADERC2L]+MAXLEVELS; 30802500 | @ 
$168 "CALL" 30804000 28 
SCAN} 30805000 »1@ 
____IF COUNT LEG 0 THEN PRINTERROR(851)3 == 808NH00O a 
IF WteWRDCSUBNAMESLOJ»NEXTSUB) GEQ O THEN 30807000 2 
EMITLITERAL CB8&SEGDICTEOWICCTFI) 30808000 | @ 
SS a ae a he ee SABO a Ee See eee 29 
PRINTERROR(162)3 30810000 o 
SCANS 30811000 @ 
GO x 3 O12 00 0 eo etl a wt Oe oe we ee 36 
Si78 WATT” 30812100 sl 
SCANS | 30812200 @ 
IF SPECTALCHR NEQ "(" THEN PRINTERROR( 860); 0812300 39 
SCANS 30812400 
IF COUNT GEO O THEN PRINTERKROR(861)3 30812500 «@ 
If _SIZEtsTESTHUFFERLO] GTR 511 ThEN PRINTERROR(861)3 30842600,” a2 
SCANS : 30812700 + 
IF SPECTALCHR NE@ ")" THEN PRINTERRGRC860)5 30812800 @ 
0090)3 O8i2g00 ss bas 
aay XIT3 30813000 5 
$188 X"COMMENT® 30813100 | @ 
WHILE NOT (SPECIALCHR="$" AND CUUNTsO) DO SCANS 30813200 __ : 
SCANS | = 30813300 | 4a 
GO STARTS | ; 30613350 | 1@ 
LT’ END OF STATEMENTS _ : 30813400 7 51 
Eee LEP ES CEE E EEE EET ET CSET TEE FETT eee eS Pere oe Ten Tee eT TET TPS ET EEE ECCTS 
PROCEDURE INITIALIZES 30830000 1@ 
BEGIN 30840000 5 
LABEL XITs. 30850000 K 
STREAM PROCEDURE BOCHSG(B +My F +025 value Mok eO8 30850100 «| @ 
; 5 No 4 “390859200 ost hase, Goan bee Mee 
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& 
DIt=B8s SIt=tLOC Ms SIt=SI413 30850300 
@ OSts2 LIT " 30850350 
7¢ Sc=" HEN JUMP OUT ELSE DS#sCcHR); 0830400 
1 DSteLiT "/"3 7 30850500 
@. Sttenoc Fs SrtaSi+13 30850550 
3 ae Sce" © THEN JUMP ste 8 a ee 
[4 DSis22 LIT "CSIMPL) CUMPITLING FOR %3 30850700 
@ | SIlt=_cc 03 30850800 
6 S sft we i ; 8385 . . _ i ; er en oe 
’ DSEBLIT Ne 30850950 
ei END? 30851000 
: ___COMPILING§sTRUES BOO 
no TIMELISTIMEC1)3 30860000 
er BUCMSGCOUTBUFFER*PMFIOsPFIUsIF CONF THEN “CONF” ELSE 30870000 
na LI BONLY THEN "SYNTAX" ELSE IF SAVETOG THEN === 30870300) 
MLIBRARY” ELSE "@G")3 30870200 
@. IF CSWITCGMSO THEN WRITECTWXEDBLI)3 30870250 
S| ___EWRITECCEILE,9*OUTBUFFERC*I2$S ORD 
ie NEXTSEGS =LEVELCOUNT! =03 30880000 
@r INPUTBUFFER(10)2=3"7377373/373773"5 30900000 
8 7 7 7 * ; 
af MOVE CAs INPUTBUFFERC1O)/INPUTBUFFERLQ) D3 30930000 
@;: DOLLRE'=FALSES | | 30940000 
p2 FILL RESERVEDL*] WITH 31030000 
@ » "INPUT 31040000 
ra "DO ", 31060000 
di “PILL ", 31070000 
P " " LE ee a ae se vem ETN EOL Ee ERT ROE MP ieesh: © 0y:0) of eye eae eee 
ba "SHIFT ", 31990000 
@ »: "COMPARE "s 31100000 
tid il} 
"LABEL » 31120000 
@ "GO ", 31130000 
" a " . '$ eee Ee ee ee ee ee 
"BEGIN 31150000 
@ "READ ", 31160000 
ceca a a se A a ss. : 
"SPACE", . 314180000 
@} YERASE "» 31190000 
9 aRe ( " : 420) 
"BACKSPAC", 31210000 
@ "TEST ", 31220000 
" ON00 
"PRINT = fy , : 31231000 
e "SUBROUTI"» | 31231100 
1 A id . 34 2 31200 fut Short etd ah! 
¢ “WAIT ", : 31231205 
@ "COMMENT "S$ 31231210 
: FILtLMoO RSCCOMPARE BUFF D3 240000 - 
FILL BNAMES(C*#] WITH ¥140131240100 
@ : "OCODE et - M3 “i - -¥440134240200 
THISTEST #813 a - ‘oe 31440000 
WRITEC(COEFILE> 30*0UTBUFFERL#])5 | 31450000 
@ FE SEGNOS=43 31470000 
NEXTSUBS=NEXTLABEL $=S22A $SNEXTUNITSSNEATPATTERN S03 31480 
BUFFERSCO2O]tS3"10007777700000%; 31490000 
@ BUFFERAC Se LIsagNd77ATEETTOOROOTS: . 31500000 
2 NEXTBUFFIe2) = Son oe ae ee 31510000 
t 


Data Documents/Inc. 
a, a . . 5 5 aS LS Sn <n 5 


a: 


BUFFERS(O»s21853"7777/700000"%3 31520000 
MOVE (MAXBUFFS"3»sBUFFERS[O»2]+QUFFERSLO*31)3 31530000 e 
AB OJ}i:=s 3" { 77"3 40000 
PPRRA"7777777777"%3 31541000 
RBUFF $SEMPTY$ 31542000 /@ 
MBER = SIZEt=03 She alate oes | 3 
MOVE CMAXLABELS*1eLABELSLOJ*LABELSi1I)>» 31550000 ‘ 
XIT$ END OF INITIALIZES 31260000 |@ 
BI IOI IORI III III IORI UII iO Orit iio ic 15700000 6 
PROCEDURE WRAPUP3 31580000 ? 
BEGIN 31590000 ‘|@ 
EM OY <2) OE Sk 2) em Cen Nr ORT ele EE ve an eae 3 
INTEGER LLeIL3 31600050 
STREAM PROCEDURE EQCMSG(BoMeF £93 VALUL MpF 9 3 31600400 @ 
ae rneeee Arr orem mre «iC Li, Mereenw eet eens S700 90 0 ek a 
LABEL L»XITs 31600300 1e 
LOCAL x3 34600400 i 
= pas ac ae AI Misa AE ot oie th reo 
SIssLQc Ms Slt=Sl+q3 31600600 igi 
OSts2 LIT " "3 31600650 @ 
a" MP : : ah is es Ie ea atte hp 18 
OSteL IT "/3 ST&sLOc Fs SlssS i413 34600800 is 
7CIF Sce" " THEN JUMP OUT ELSE OS#sCHR)3 31600900 21 @ 
ce me TG ST a te OU NN at a ee a el es ce ee i 
SIs=LCC £3 TALLY? #83 31601100 
SCIF Sc="0O" THEN BEGIN TALLYS=TALLY+633 SIt=SI141;3 31601200 
pie teat oe Ie Mie Ck pS San a a 5 Oe 10's Sec iN c eee 
OS%22 LIT NO"; ' 31901400 
GO XIT3 31601500 
XIT3 OSte13 LIT " SYNTAX ERRSE"} 31601700 
END3 31601890 
31601900 0 
BEGIN 31602000 
SIltsL0c B3 SyteSi+73 DLt=eBUFF; 316021400 
on 6 Bad H Ae 
DS:=14 LIT "COUR BUFFER 1S " 31602300 
ELSE 31602400 
F SC=s"]" TH 60 fe Ne fh dees ee ee Se ee ee 36 
CSt#18 LIT "UTILITY BUFFER Is *" 31602600 7 3 
ELSE 31602700 | a @ 
: N 602800 39 
OS:*B LIT “BUFFER O38 31602900 
2(0Sis3 RESETS JSCIF SB TREN DSt=SET ELSE 31603000 «|@ 
DS:=RESETS SKIP $B))3 31603100 4g 
OSt4 LIT " IS "3 31603200 4 
ENDS 31603300 @ 
SIteLoc SIZ DS 14 ‘vECS 31603400 poser tenes 4g 
DSt=5 LIT * LONGS 31603500 16 
oe °93 oSt=3 FILLS 31603600 | @ 
6¢ 00 is 
EMITLITERAL(O3)3 31610000 ; 49 
SEGDICTE St mO&SEGNOLCTFI&ALCTSF I 31620000 og “| @ 
-SEGSaMA SEGsA)s . 34621000 - 1 
IF LEVELCOQUAT NEQ O THEN PRINTHERROR(?)3 31630000 5 
NT523—MPTY3 31640000 «9 @ 
FOR NTISSNEXTLABEL@1 STEP "41 UNTIL O ODO 31650000 BA 
IF NOT BLCCNT2SSCABELSENTII2 C1817) THEN | 31660000. 65 
BEGIN 31670000 , : - {@ 
FIRSTS CANTSCOREADORCTESTBUFFER) A; 31680000 Ral danke 5 
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oot HO TO FP WH 


= 
i=] 


12 


a 


Cert 


COUNT 
MOVE ¢ 
END ELSE 
IF NT2eCCF 
LL&sN 
NT43e 
‘ a 
WHILE 
BEGIN 


NT3is 


END; 
FOR NTUt=N 


IF BUFFERSLOsNTII]+£SFI£0 THEN BUFFERSEONT1LJeLSFIt210208 32010000 


IF NT 
Db 
BU 
\ 
ENDS 
IF NOT ERR 


2 hk 


IF PP. 


WRITE 
FOR P 


t=8) 
LoLNAMESCINTLI»TESTBLFFER)s 
KE RROR 60 H 


1 (SS EMPTY THEN 


T2.l1889]3 
NT2oCCF 3 NT3esnT2,(27s6)3 


NT4 NEQ EMPTY OU 


IF LEVELCOUNTSS(NTOS=EUVOCINI JeNT4I), CSF ISLE 
GTR O THEN 


ILt®=10"REALCSEGDICT(CNT3] LSS O AND LL*0)3 
EDOCONT3eNTG91) See TL A CLEVELCOUNT)CCTSCEF 3 


DEBUGUUTC@JL&CLEVELCOUNT)LCTSCF > 
NT3eNT4"4)3 


. EDOCLNT3sNT4]23NT23 
NYGelLFFI32 NT&tentTé, CCF I5 


EXTBUFF@"1 STEP “1 UNTIL 2 BC 


2teBUFFERSCO*NTII<O THEN 
UFFSIZES=MAXCOBUFFSIZEsNT2.03F))3 
FFERSCOsNTIJSSABSONTS? D3 


TOG THEN 

CCF) NEQ EMPTY THEN 
CCOEFILEs 30sPDESC(L ej); 

Fs=O STEP 1 UNTIL NEXTSEG CO 


BEGIN | 
SEGDICTCPPI,CFFJS=SEGNO; 


_SEGDICTCPPI.LCFI%s03 


TRANSFEROUTCSIZESSSEGDICTOPPICSFJs30+CUEFILE» 
EDOCEPPs*J3)3 


31690000 
31/70000CG 
On ea eh 
31720000 
31730000 
‘Tereters 
31741000 
31750000 
760000 | 
31770000 
314780000 
81000 


31870000 
31870050 


348701450 
31870200 


31870400 
31870500 


31880000 
31960000 


31980000 
32000000 


32911000 
‘ 00 


32011200 
32011300 
- ore 
32011500 
32020000 
030000 
32031000 
32032000 
040000 
32045000 


32050000 


2051000 
32055000 
32060000 
3206040 


BUF FE 


ENDS 
RSCOs0). [SF ItSLSEG; 


BUFFERS(O0s41, (SF ]teMINCOBUFF SIZE» 10203. 
TRANSFEROUT (NEXT BUFF» 309 COEFILE» BUFFERS[U9*))3 
TRANSFEROUTCNEXTBUFF » 30*COEFILE»BNAMESL*])}3 


-RCOJVSHESEGNOS 


“TRANSFERQUTCNEXTPATTERNs 309 COEFILE»PNAMESL*))3 


TRANS 


SEGNO 


pe eee rege cca rete cdees Thee 


1 SEGNO+2x((NEXTPATIERN*29) DIV 3093 


32060200 
32960500 
32961000 | 
329070000 
32080000 
090000 


32100000 
32110000. 
20000 


32130000 


TE ANSE ER OUT TE AVERT AID ANE IZ EG Th yady GOPEILESSEGOTCTOAI23 32140000 


IF ONE 


BEGIN 
ee Pe ou; 


XTUNIT. GTR ra AND NOT. CONF TREN: 


32140010 
32140020 


440106. 
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San Se Ss s _ = 


oorx~z~z om FF FF WH = 


~ > 
nN = S Oo of wy Oo MN 


5S 


way 


BEGIN 32140200 
UNITABLECLsQ] 3 SUNITSDLL*SUNITIA 32140300 
———______MCVECLeUNITSOOPUNTTISUNTTABLELO,O I), SRAM OOD men 

ENDS 32140500 

WRITE CCOEF ILE *NEXTUNITSUNITABLECG**J) 73 32150000 

pn WRITE COEF TLE NEXTUNITAZUNITABLET oe} yg 0 UBT BONOO 
END3 32160100 
IF THISTEST GEQ@ O THEN 32160110 
TEST ARRAY ITHISTE STILLER LS SREALCMAKETAPE DS == a2 L6O20..UUUULL 
IF NUMBEROFTESTS GTR O THEN 32160200 


TRANSFEROUTCNUMBEROFTESTS#1>30sCOEFILEsTESTARRAY)$ 32160300 
_ SE GNGRESEGNOSTSO(NEXTSEG DIV 30)¢ OOOO 


2xREALCNEXTUNIT GTR O AND NUT CONF )+ 32180000 
REALCCONF AND TRUEDXCCNUMBERUFTESTS+#30)01V 30)3 32180100 
baie ta ciel oe EO Ce) hee NT oO NO Ge 

WEADER[7IISREALCMAKETAPE D&LSEGICTF 13 32220000 
MAKETAPESEFALSES | 32250000 

KE ADERC Dt SNUMBEROFTESTSS# = = ——i“‘i*C*s*sC‘“‘C‘ BQ 
READERL20]:=NUMHERUFTESTS3 32261000 
HEADER(C21):5ABSCHEADER( 2119s &%IN CASE OF STACK CARDeee 32262000 

Sees ee er et EN COG CO SE ila aS tos es pee es etal OOOO amy 0 anc cee eter ee 
WRITECCOEF ILE» 30eHEADERE*));3 32280000 
END3 32290000 
: oF 01,010 © ee een eee 
IF ERRTOG THEN 32300100 
IF CSWITCH NEQ O OF Lol THEN 32300200 
pS ee EAS TERROR ONE GO “THEN 2000 

BEGIN 32300400 
WRITECOUTBUFFERL *) La); 32300500 

UVTBUFFERCILIS=DECMALCABS(CLASTERROR) )3 32300600 ss 
WRITECLFILECDBL 14,15 e0UTBUFFERL*))5 32300700 
END3 32300800 

se OUTOG SHE Ne ce ae ao i ga TOO os es 
BEGIN 32320000 
Pia} 32330000 
FOR B%20 STEP 1 UNTIL NEXTSEG DO HOODOO 
Pr=P+SEGNICTLBI.LSF)s 32350000 
WRITECLFILECUBL 124 32360000 . 

___ WRITECLFILECOBL JA EFFeERRORS» (TIMECL )@TIMELINIV 60)3 323970000 
WRITECLFILECOBL J »SEGSIZEF sNEXTSEG*+19P)3 32380000 
WRITECLFILECOBLIJ»BATSFsNEXTPATTERN)3 32390000 

FOR NTL380 STEP 1 UNTIL NEXTBUFFRl OG Uh 82990100 
BEGIN 32390200 
CLEARCUOUTBUFFEK215)35 32390300 
BUFFERMESS (NT 14 BUFFERSLO*NT 14 CSF I*UUT BUFFER) 5 32390400 a 
WRITE CLFILECDBL I» aan cae ea 32390500 
ENDA 32390600 

WRITECLFILEC OBL) »OISKSIZEF »SEGNOF2)} 32400000 | 

WRITE CLF ILELPAGEI)3 32410000 

END3 32430000 

COMPILING$SFALSES 440000 

IF PATCHSWITCH®1 OR leaks NEQ 2 THEN 0 , 32450000 

CLOSECPATCH)3 a 32460000 

PTOG THEN OSECTAPE)s 2 : mone 32470000 

IF NT@G THEN 32510000 

BEGIN 32520000 
NiOGis A SE3 530000 | acne Le ey et bag oh 

igen capa Big Seige a > a Fey 32540000 

pene 3 pea ae = i ah 32550000 

IF LSWITCH NEO OUTSWLICH: THEN Pon fue ee ee 32930100 


oon @ OF BF wry = 
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Tee Fe R ys Ss 3 SBBSBSEBEREBSRB 


an A 7 eS ee 
Oo 6 op : 


<7 ey = 


FINDOUTPUTCUUTSHITCHsUUTSWITCHS=10)3 32950200 
EQCMSGCOUTBUFFER* PMF [Ds PF IU, ERRORS ) 4 32550300 gS 
SW MSO THEN WR x 220400 
IF NOT ERRTOG THEN 32560000 
BEGIN : 32561000 
| SAVE I: 2570000... 
BEGIN 32580000 
LOCK(CUEFILEs*)3 32590000 
y : "ERC # ; 91000 eS 
GO RETURNS 32610000 
END ELSE 32620000 
BON. i N ptf ELAN el Re a Ee ee POR OOOO Ann sce oe 
BEGIN 32640000 
WRITECCEILEs 9sOUTBUFFERL#*))3 32641000 
se eee eee eee de BUNLYt=FaLSeE3s 5 yee ae _ 
GO RETURNLS 32660000 
END ELSE 32670000 
WRITECCFILE»9sOUTBUFFERL*))3 32680100 
GO MCCLRUNs 32680200 
EN 32880300 
-END3 32681000 
CONF taFALSE3 32690000 
_WRITECCEILESO*OUTRUFFERCH#JD;  ——s—s—“—*™*~*~*~*~S~SC‘~is tae 3a 
XIT8 END; 32720000 
RERAET EEA CORFILER BLOCK CODE HHEHAARRAAGHH ENE ARR RRR RRA HERR I27INOOO 
A ES 120010 0 ae 
WHILE WORD NEQ@ NIGEB DO SCANS 32750000 
COMPOUNDSTATEMENT 32760000 
WRAPUPS 770000 Fi ss 
$POP OMIT 32770100 
$SET OMIT=NOT OMITCOMPILER 32770102 
GO RETURNS aro spaces, 
$POP OMIT 32770106 
END} 32780000 
RECHHHHERHEND OF COMPILER BLOCK#Fet ee dtedtcetadaeaedetaesateeeeeneeaeegeseear2790000 sss 
FINISHOFF3 | 32800000 
GO RETURN13 32810000 
RUNTAPETESTS# 292000 Set 
MAKETAPEESTESTARRA¥(O]+(27!615 03 33020000 
TESTINXt2TEST&se43 . 33030000 
MCCLRUN? O40000  ———— 
ERRORS =ERRORS!203 33050000 
IF NOT TAPETEST THEN MAKETAPE!S@LCHEADERL7])3 33061000 
3d 
; 33061002 
COMMENT THE FOLLOWING CODE READS THE BLFFER TABLE INTO 33061005 
UMP ARE BL * REQUIRED TO B N Ok : DO TOL Gs oii ol eo ne 
PRIOR TO ENTERING THE INTERPRETER BLOCK SO THAT 33061015 
THE SIZE OF THE BUFFERS MAY BE DETERMINEDS 33061020 
6 {) 
my 33061030 
READ CODEF ILECHEADERLOI J+NT1tRHE ADERCO3» COMPAREBUFFE #103 A an ea 33070000 
READ(CCODEFILE)3. Sites 3080000 
FOR NT2t2NT1 STEP 1 UNTIL 7 DO COMPAREBUFFEnT2 ISO) % 140533090000 
%#150133100000 
Xe#eSEH EEE INTERPRET R_ptOck 0 LAR ATIONS START HERE PxTSESIASSLS ES E3 ####33160000 : 
BEGIN Cine einer PEs nae it 33170000 
— SSET OMITSNOT OMITINTERPRETER oo. A oe . . 33170100. 
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0 a B e E E nD 5 a wat » 53 = ; = 


CE 


STACKCOLIF NTLtSHEADERC 2id=60 THEN MAXLEVELS"1 ELSE NTi)s 4440433580000 


ee eee ee 0 


: oe 33580002 
XSTACK IS THE PSEUDO*STAGK. SREG POINTS To %140433580005 
STHE NEXT AVATLABL 


ZWORD IN STACK IS aS FULLOWS: 140433580015 
x 33580020 
% "ATES f KUOF AT NEXT LOWER LEV 980 
x ~ TS NGT IN ITS FIRST. TIME TrRU 33580030 
4 =» {e PREVIOUS LOOP IN FIRST TIME THRE 33580035 
‘ : 6 a.) : ak 33580040 
% CSF J} = RELATIVE AUDRESS FOUR SUBROUTINE EX[ET 33580045 
% C18%6)5 SEGMENT NUMBER FOR SUBROUTINE EXIT 33580050 
% C2439) tS ADDRESS OF END OF mails OR SUBROUTINE 33280055 
x CCF Js. 33580060 
x . IF Citi) THEN 1s 33560065 
& OTHERWISE. REMAINING LOOR COUNT F R 33380070 


$POP OMIT 33170309 
SSET OMIT=OMITINTERPRETER 33170400 
DEF IN = 6 i» a at MER OOOO as ee re 
SREGSLEVELCOUNT#s %¥140433181000 
IBUFF=COREADDR(CODE )#» gaerooee 
___.._DBUFFSCOREABDR(PATBUFFILJ)#@» 33200000 0000 
CODECCODELI=EDCCES»CUDE1LI&» 33e41000 
LFs2%3k, 33201100 
a a Be a ao al a a IO ec ete oy Ce 
NROFBVARS4# >» %140633201300 
MAXSWITCH#8#3 33210000 
39 fe ae ie iO fC IGOR IOUS DO ition ket iby te 39220000 | seit Nam Se, 
SAVE ARRAY 33230000 
B2CO8COMPAREBUFFC2].0SFI+1)>- 33240000 
—--.._ BILOICOMPAREBUFFE3T.CSFi4lj, a ae a le OOOO 2... os 
B4COSCOMPAREBUFF(4),CSFI411> 33260000 
BSCOSCOMPAREBUFF(S1.[SF 141)» 33270000 
__ BOCOsCOMPAREBUFFCGJ.-SFiet)s 007 882 8900O 
B7LOSCOMPAREBUFF(7),°0SFIJ+1)5 33290000 
33290005 
ae 2.329900 10. apse ute leech eee 
COMMENT THE ABGVE ARE BUFFERS 2°73 33290015 
33290020 
Le tev eeee eee ew eee eee needed eee eee dea eee eee eee eee eee eee RW RW AIIUONOD aden a oe 
SAVE ARRAY 33350000 
PATBUFFCOSCOMPAREBUFF(1)].CSF1+i]3 33552000 
Ee A a al Eaeeeeme ONE Wn FV") 01 CL Ren een ee pte ee da See 
COMMENT PATBUFF IS BUFFER NUMBER 1¢ IT 18 USEU FUR READS» WRITES» 33552010 
DISPLAYS» PRINTS, WHEN NO BUFFER PART 1S SPECIFIED. IT 33552015 
ROTATESs QURING READS WHICH EXPECT A PARTICULAR PATTERN» 33952024 
PATBUFF HOLDS A CUPY OF THe PAITERW FOR CUMPARISONe 33552030 
eee et) ae Bc 2 I Le Sere vr ae em eee OC eae ee 
33552040 
TR A RRM RN TI III RE IE ee i iki keh tw ie 39560000 
ARRA ees Fe nd Ps ee A ee rs A O00 2.22, ih alc SS a a a a 
EDOCCOSHEADERL3}= J,O81F NTI:sHEALERE 7J,CFFIJ=0 TREN 511 ELSE NT1)> 33571000 
33571005 
ZEDOC HOLDS TH ££ SEGMENTS WHEN A NEW CULE § 33371olo belek atin Pose hE Mea 
BREQUIREDs IT IS READ JNTO THE aAPPROPRIaTE EDUC ROW. CODE 33571015 
RSEGS ARE NOT BROUGHT IN UNTIL REQUIRED. SEGDICTEC*I 15 33571020 
d D_TO IDENTIFY “PRESENT” AND "NON*@PRESENT" SEGMENTS OO 83577025 
33571030 


WORD IN STACKse THE FORMAT OF A 3140433560010 eae 
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Cees 


% PREVIOUS LOUP 33580075 
33560080 

UNITABLECOt Ls ORMAXCHEADEREL IL 1-1-0) 1, 33590000 
% 33990005 
& : Baneneno an 
% UNITABLE CONTAINS INFURMATION ABULT UNITS ATTACHED) TO 33390015 

& eae AT PRESENT» ONLY One TAPE UNTT Js ATTACHED 33590020 
% > DONE TO D A N eerie Be b> 3 8c 2.5, eee eee 
% sive CORE REQUIRED BY TRE PRUGRAM, ANEEQUENTLY. THE 33590030 
* USE OF THIS ARRAY IS SOMEWHAT INEFFICIENT) 33590035 
aca SO OO Sn Date BEA a eo 
% UNITABLECO2O]=SMNEMONIC FUR UNIT 33590045 
* UNITABLE(120) 33590050 

ee eaeeees iim a a a Ne be Ad OO Ses na i te 

% {FF JSHAROWARE UNIT NUMBER FOR UNIT 33590060 
x CCF J=LOGICAL UNIT NUMBER FOR UNIT 33590065 

I ate seen ot ee ae ee a OOF Oot sites tte 
% 33590075 
4 ; 33590080 
PATTERNSCOSMAXCHEANERI 2 )@1,0)), ot 3 O00 0 Oise ee ch ee 
e 33600005 
% 33600010 
SB PATTERNS(P)e feet OOOO 4 Bi 
¥ 4 33600020 
% C124350 REGULAR PATTERN 33600025 
a ect Re IN ree eee et re 9 OOO AO ts ieee 
a C223]750,PATTERN NOT IN CORE 33600035 
x NEQ O» BUFFER INDEX OF FIRST BUFFER CONTAINING 33600040 
RPT ER BO 334600045. aa Sao 
% [5%3]=0, PATTERN WOT IN CORE 33600050 
y 4 NEG Os» BUFFER IWOEX OF LAST BUFFER CUNTAINING Reena 
% REMAINDER OF WORD SAME AS GENERATED By COMPILER aaeocdes, 
x CPATTERNS[LOsP)) 33600070 
% 33600080 
BUFFERSCOSHEADER[ 611), 33610000 
% 33610005 
% 33610010 
ZBUFFERS(OJ= 33610015 
% 670020 =a) 
% C0:8)=0 33610025 
y | (SF )= ne lee. OF eenGeet COUk SEGMENT 33010030 
Y = 7" 6 A A Re eee a REN 
x. {CF 30 33610040 
- 33610045 
*BU FFERS Bj= B NEQ QO) 610050 ha ete ae et 
x 33610055 
% (0:2]=0 33610060 
% C2:3)=LINK TO NEXT BUFFER CONTAINING SAME PATTERN 33610065 aus 
x ; CO IF NO PATTERN IN BUFFER OR BUFFER ILS LAST 33610070 
4 WITH PATTERN) 33610075 : 
3 C5s3]*LINK TO PREVIOUS BUFFER CONTAINING SAME PATTERN 33610080 
y 3 CO IF NO PATTERN IN BUFFER OR BUFFER IS FIRST 33610085 
a WITR ee 33610090 
x I N OR 6 095 aay 
% CFF e377 7778, NO PATTERN IN BUFFER 33610100 
%. NEQ 3°77777% INTERNAL PATTERN NUMBER OF PATTERN 33610105 
x Bt eR: ie tle Pa 4 Tes 610410 
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oD 


EE: 


& CCF J=CORE ADDRESS JF BUFFER 


33610115 


% 33610120 e 
SEGDICTLOSHEADERE3)"1)5 33620000 ' 
% . 33620005 1@ 
_ 4 __ 33620010. 3 
&SSEGDICT(S}= 33620015 : 
x 33620020 |@ 
% (0%4]=0 33620025 6 
% C1%14]20» NORMAL. SEGMENT 33620030 ‘ 
% =i, SUBROUTINE SEGMENT 33620035 ‘|@ 
: £6] #0 33620040... : 
% CSF J=SIZE OF SEGMENT IN KURDS 33620045 ‘9 
z (FF J=©RECORG NUMBER IN _coue FILE WHERE SEG STARTS 33620050 @ 
j =Q y Se a oe et OP OOS Sn on ee ee et 7 
% 33" 77777"5 SFEMEAT “PAESENT 33620060 "3 
. 33620065 1@ 
at BAA QO0 7 Os, dee site eect Sa 19 
TESTDIRECTORYLOtHEADER[ 81)» 33621000 : 
BVCOSNRUFBVARX(HEACERT6]=1) 1) 4140633622000 |@ 
: ON SO 20.0 a. oictcscnsivy Seian pune weee cot Ik aS cee See ee NS 
x WROCOUNT> %140633622020 1@ 
% 10D» %140633622030 Pt 
4 R aa? ° O22040... ccleaner ein a ice coo es ten ne AD ; 7 
% 2xREALCSIZERR)+REAL(COMPAREDATA) #140633622050 le 
% FOR EACH BUFFER (EXCEPT BUFFER 0)3 %140633622060 23 
ORES) emer ance etree Tt OE a a es Gh BOO OOF Oe ai pa ta ot ee ee be 
PNAMESCOSMAXCHEADERL2)=150) J» 33630000 zZ e 
BNAMESCOSHEABERL6)@1)3 33640000 ee 
Yu RARER PRREAER TETAS at * * Oo ? 
INTEGER PeBo SIZE» UsLUOPCUUNT» TALLY» WROGOUNTS 4140633660000 a 
‘ 33660005 i 
% P AND B CONTAIN THE PATTERN AND BUFFER BEING USED IN 33660015 a1 
% THE CURRENT I/O OPERATION 33660020 1@ 
% SIZE AN | us TEMPORARY STORAGE 33660025 = 3 
% LOOPCOUNT CONTAINS THE NUMBER OF TIMES THE CURRENT 33660030 
3 LOOP HAS YET TO BE PERFURMEC (VALID ONLY IF 33660035 2@ 
DOP N $1 J=0 ih tO OOO UO : B- Fntuess tel ok ia 
% TALLY IS TME USER VARIABLE "TALLY® 33660045 a7 
% WROCOUNT CONTAINS THE WORD COUNT FROM THE LAST READ OR SPACE 33660050 3 @ 
% OPERATION 33660055 3s 
% 33660060 ‘ 
% 33660065 l@ 
FOI II GIGI III III II III IOI III IOI III I IOI OI II III IG iok 33661000 soos 
FORMAT INVUNITC"INV UNITe™)> 33661100 . 4 
DASH{72¢""))>» 33661200 | «@ 
“NOTOONEC "TEST #%s13," NOT BUN CWRETE LOCK)")>» 33661300 ; 45 
EOTESTFC"END OF RESULTS FOR TeST 3% 5]2)» 33661400 ‘6 
ERRSF( 155" ERRORS DETECIEU")> 33661500 hd 
UCHANGED("TEST UNIT CHANGED» TEST TAPE NUW UN "4A3), %140533661550 
INTALLYCYENTER TALLY") > 33661600 : | 4s 
DTALLYCTTALLY® "»18)> %140633661650 | 5 @ 
INVTALLYCY*INVALID 3/8 SIZES"*LBa"ES=M se 129 "9 Ams 13 De 33961700 ; e 5] 
INVTALLY1C10C" 8") oe" INVALID I/U SIZE="p] Be "t5e"s]oe"p An 33661800 5 
L309" ",73("#H") Dy» 33661900 ; -{@ 
INTALLYERRC"INY ENTER TALLY! S="s120", wz"y13), 33662000, 7 5 
INTALLYERRECLOC"#" eV INV ENTER TALLY Sa" neo” ’ ashe 130" ", 33662100 : | fe 55 
BLONED Ds 33662200 = of @ 
STKOFLOW(™*SINPL STACK OVERFLOW! S$ 3 t, aeMe A = "pl3)e 33662300 a ae ee 5 
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e @ 
STKOFLOWAC1OC™#™)o"=SIMPL STACK OVERFLOW: S = "eID, 33662400 
@ “, A = elas "s710"H") de 33662500 
RC '=PA kK R",JTa," Ss : 32 33662600 
’ Wenm)5 33662700 
@) alae idl all eda ule lhe halel alli tl lll ed ed lit halilala ich Iaiilial tab hea Cees: 
3 RE A NK N RUCTION OD A A f ; Cp, 04 680000 
‘ : 33060005 
e| % 33680010 
6 pi NA 5 % on PORAR STORAGE OB8O0015 
% INSTRUCTION CONTAINS THE SIM PL INSTRUCTION CURRENTLY 33680020 
@ | % BEING EXECUTED 33680025 
ale ONT ALTA SECOND WORD 2 H URREWT I/O INSTRUCTION 3368003000 
by % SAVER CONTAINS THE LAST CNUN" RETRY) RESULT DESCRIPTION 33680035 
eo" %® SAVES CONTAINS THE VALUE OF "S" WITH FIROT ENTRY INTO STACK%140433680040 
le a me ee ee eae Se Pop eheaa eats 
j %*140433680050 
@™ , 1140639680095 
le FI III IOI I IOI IOI UII IIDC UII IOI IO ia i to iiot toi i eine ee 39690000 0 
16 BOGLEAN TOGGLEsSIZERR» TABLEPRESENT; 33700000 
@ % 33700005 
z hE OOS Qos oe 
a STOGGLE IS THE USER VARIABLE “TOGGLE” 33700015 
@ i %S1ZERR 1s TRUE IF A SIZE ERRU: OCCURED UN THE LAST 1/0 33700020 
AB PR RA AD Of BLOCK 37000 ie 22 Ie at ach aan ING Gad ct 
mie % HAVE BEEN READ INTO PNAMESL #1 AND BNAMESL#] 33700030 
@ * % 33700035 


a ROWe eee NOOR ARR THEN REAM RUHHWEENAEN SENET HHARK Ewe NEEMaRE oO ORE RAR aHEEN337O0L00 : 
@ LIST | 4140633700200 
P7 UN NAM (IT ))» $140633/700300 
i TLLYCTALLY)3 %140633700400 
6 29 FE iI II I TG I GIO TOGO IO IOI ISIS OG II OIG IGG ioe 39710000 
Be PROCEDURE GETSEGMENTCSEGMENT)3 VALUE SEGMENTs INTEGER SEGMENTS 72000 Peen 
P BEGIN 33730000 
@ : COMMENT IF SEGOICTCSEGMENTI,CCF 1] = O» SEGMENT 15 READ IN FROM 33730005 
83) DISK AND SEGDICTCSEGMENTI-CCFJ) GETS EMPTY. S REPLACEL TAK 19 0s 0 heen Renee Ree eee 
: BY SEGMENT; 33730015 
@ | IF (JUNK S=SEGDICTESEGMENT] ) «CCF I=0 THEN 33739000 
i BEGIN 739400 
B7) READ SEEK(CCODEFILEC JUNK CFF II 23 33740000 
@ » TRANSFERINC JUNK .CSF J» 30s CODEFILESEDUCESEGMENTs #J)5 33790000 
? SEGDICTESEGMENTISSJUNKAEMPTYCCICI3 731000 
LOCKCEDOCLSEGMENT#*))3 33751500 
@ ENDS 33752009 
SisSEGMENTS 33760000 ate 
ENDS 33770000 
@ Secdsasnoneanausssacaanescasivusranetecasinaasnatisssensseniesevediasess33770005 
PROCEDURE STA FIOCI @De RESULT IS VALUE IgDs A ODs RESULTS | 77TOOtO es 
FORWARDS 33770020 
@ Fae te III IOI I TOI GG TOI III IOI at dt te 33780000 
5 REAL PROCEDURE INSTR 33790000 
° BEGIN ae 33800000 
@ : COMMENT INSTR IS RESPONSIBLE FOR TAKING INSTRUCTIONS FROM. 33800005. 
DOC AND PASSING THEM. 70 OTHER ROUTINES ISTR ai 800010 
: HANOLES BRANCHESs LOOP ENTRY » AND SUBROUTINE © 33800015 
@ |: ENTRY AND EXIT, IT ALSO PASSES OVER NOOP (ZERO) 33800020 
P NS RL ONS N TR —f UR ‘ HE IN T NSTR .T ff : 35000 eee 
B TO BE INTERPRETEOS. Sees JA ry tes 33800030 
e@ a Bak : yee oes eo Aas 33800035 
Us Eien A N 2 AO AL OHOO 
® 
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Data 


SE 3 
$8 8 S s 


DEFINE ITBNT24sSSENT34 »AASNT4# > TYPESNTS4# + JSNTORS 


%140233811000 
338i110C 


33811300 
33811400 


SSET OMIT= ace OR NCT DEGUu 
R PROCEDURE OC 3 _ VALU. Ne As Bs 
"BEGIN STtsLOC B3 S14aS1=Ni NCSKIP 3° $805 
OLteBs a 
RESETs SKIP SB))3 
ENDS 
PROCEDURE DERUGD Sp ADS Bh Is INTEG : eae 


COMMENT DEBUGOUT PROVIDES A TRACE ON THE OUTPUT FILE. 
DEVICE IF DEBUG 1S SET TRUES 


REAL JUNK, 
Seu sce ae 

a Ji! K r 
GCTADES (309011 COREADDACOUT BUFFERS 3} 
OCTADES(C3sArBL C1) OR. BLC3I"400000") 3 


33811600 
33611700 


33611805 


33811810 
33812000 
33812100 


33812300 
33812400 


—___WRITECOUTFIs4*OUTRUFFERC#I)9¢ 0 ABO 


END$ 33812600 
$PQP OMIT 33812700 
XT3 B 
$SET OMIT2OMIT OR NOT DEBUG 33820400 
DEBUGOUTCCODELAI »SsA)5. 33820200 
POP OM B20300 == = 
IF I%=CODECAJ=0 THEN 33830000 
BEGIN 33840000 
—ALE Tj Siveeeemnes Ac) 10 cel 9 Seaeemene vane Rte eee eee 
END 33860000 
ELSE IF TYPES*I.CIFLISS THEN %140133870000 
, OOM 
5S: =S3 AAS=A413 3387/2000 
IF NTlsaleCFFJsS THEN BEGIN AssleCSCh]s GO NEXTS END ELSE 33880000 
GETSEGMENTCNT1I)3 33900000 
At=1,(SCFI3 peabe 
O NEXT? 20 ES cle Seti, oe 
END} CECT 
ENDS 33931000 
At=A¢13 33940000 
IF TYPE®63 THEN TYPE*MAXSWITCH ELSE 140133950000 
IF TYPE=0 THEN 4140133960000 
BEGIN | 33961000 


IF SREG GTR HEADEREC 21) THEN 


%140433961100 


BEGIN 33961200 
F_CSWITCH?0 [dEN WRITeCTWXLOBL))3 33961250 
WRITECCEILE* STKOFLOWS SNA); 33961300 

IF NOT TwkOUT THEN ; 33961400 

a N : 3 96 OO 
WRITECOUTFICOBLI23 33961600 

TE COU TG TEE Sas PS nceL OM rN ay: 33961700 

NOs 961800 

ENDS 33961900 

IF ‘SREG#O THEN SAVESI=S3 #180435961910 

‘Q N 962000 

LOOP COUNT: sLOOPCOUNTSAACCTSFJ4SS( 18! 423 6)3 33963000 
STACKCSREG]t=LUOPCOUNT&Al£C2432429);5 #140433970000 

OOP COUN 2913 SREGS=E5REG+ 3 = 980000 

GO NEXT ee hgh 33990000 
ENDS Peon ee ey ee ae A oF ees 34000000 
Inf) ERTYPE De es ee ee ee ae 0.00500 


® 
IF STOPPER NEQ O OR JUNKBSZBOULEANCTIMEC™2)) THEN 140634001000 
@ IF STOPPERCHECKCUJUNKS) THEN %#140234002000 
i ge PM OO SOO Ot 
IF NOT CONF THEN I#38 ELSE 2140234004000 
@ IF SREG2O THEN Itsi2 ELSE %140434005000 
—BEG PN gtao2gaousodg aoe 
SREGs=13 #@140434007000 
Yd LOOPCOUNT?=03 %1402340C8000 
SS a a i A OO OU Ga ars bt tet 
: I1?s103 140234010000 
@ ENDS %140234011000 
20 T ; a HORAN ZOOO 
JPTSCOREADDORCSTOPPER)3 %¥140234013000 
@ STARTAPEIOCS™ 4200000000" GUNITABLEL 1201 (3% Zet5)]»STOPPER); 4140234014000 
Bel Sa WAITCJ» LOMASK)3 ee pe ec PAO AAO 5000 
XIT3 STOPPER: 203 4140234016000 
@ END} %140234017000 
is INSTR#S]3 : pi te Sa a Er AU BOG ee terol 
je ENDS 34020000 
@ 17) BOIS ISICII I IGIGIOIIIIOI III IIIS OID IOI ISI III III oindigeinien 34030000 
: DEF NEXTINSTRUCTION= at ee ee oe OU O00 0 a es 
$ GO TO SO#:; 140434050000 
Ro Lene REET ERE REERER ENTREE EER EE EHRENR HARE RR EA AKANE REED HEH ay eee 4060000 
1 LABEL SOrS1sS29S35S45559S60S7 DONE sS9eS10e 140434070000 
2 S412#51255135514.8153 2140634080000 
@ R3 ROL ENA RELEASES CEES ES REAR AE HES TS EP OAK ORR MASE SAS EAR NRE EHR BOON OIG 
é SWITCH SWE=S 455298 99S 49559 dbe Se DOINEP SOG Sj O98 4140634100000 2 
S g FA IO IOI II IOI IOI IG III IO I OOO e 34350000 
3@ ps $SET OMITSOMIT OR DEBUG 34530050 
3 P? ERE EESSA LESSER ASL AALAE ELLOS LARASE ERLE LESSEE TELE TREE RA ELECT TEE TT ET El Sel) eee 
gS Pe BOOLEAN PROCEDURE PATTERNGENERKATURCCHRS»PATBUFF )5 34530150 
2@ ps VALUE CHRS*PATBUFFS INTEGER CHRS*PATBUFE 3 34530200 
if QM OMMEN A NR 650 Ne: 9:0e 3 
P BEGIN 34530300 
e@ i RES EREEORE ARH REERR ER EEER EERE ER HER ETE KE REA EE NER ETRE EOE EER NE Ree ee HH IAS 30950 
P NT R STREAM PRO NLR STRING A : SP a Pp MAX () ; 34930400 
i VALUE FS»PATsMAXS OTS 34330450 
@»: BEGIN . 34530500 
p AD XI 9CH CKsERRS s CHES» 930550 
i ST:=sFSSDIstsPaT; 34530600 
is IF Scun*™ THEN 34530650 
BS 2 N t2SI+i i ist} 4530700 ee 
fy IF “Scanne THEN ONSt=cHk ELSE BEGIN CHRSISTALLYZTALLYt=23G0 ERRZEND3 34530750 
e END ELSE 34530800 
SN a ete oe | eee 
; OTCMAXCACIF SCe""" THEN GUMP QUT 3. TO CHECK 34530900 
@ ibe SKIP 3 SB} 3CIF $B THEN OSt=SET ELSE nSt*RESETS SKIP SB—))s 34530950 
: p = TA MPO 8 4 K : C10 Y 0 Ree ere Pevesreaeria 
‘ MAXCIF SCo""" THEN JUMP OUTS USS=CHRS TALLY S=TALLY4+41)3 34531050 
Or END; 34931106 
8 HECK? SC _NEQ "tH" THEA 4o3 0 eee 
BEGIN CHRStSTALLYSTALLY2313 34531200 
ERR: FSsaSi3 PATISATSMAXZETALLY aces MAXsDI3sbT3 DStswOSs 34531250 
ALLY: eCcHRS 313900 
END ELSE BEGIN Sls=sI+1; FS?=SI#PATS =DIBENLS 34531350 
X1Tt STRINGSCANSSTALLY+SI2=LOC FSsULsELSpuStewOSs513=LO0C PATS 34531400 
NDI ssPsN END SS a ee Pee > YA Ls We Uo i 0 Lec 
END? . eee nk ey . : 34531500 


Tetiveneteessessteneaaesenrenenstinenenssiieesstenstraaiessetea san e4e4e 34531550 
INT TRU STREAM PROCEDURE SCAN ¢ SANS TESTS se SPC)3 f é z 60.0 
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BEGIN 34531650 @ 
LOCAL NRs LABEL 63 343531700 
t= : = wots eh eat eee ae Fe oS ee i 
SI:sFS$ 8: IF SCs" " THEN BEGIN SI?*51+1360 BFEND; 34531800 : 
IF SCeALPHA THEN 34531850 |2/@ 
SS Q "oO" THEN 1 €) 6 Rey ener 
BEGIN S{tsST+1sTALLytelswRe=lacL_rs 34531950 4 
7CIF SC GEQ "O" THEN BEGIN SItsST4+14 TALLY =TALLY412 END 34532000 |@ 
S Out 3 Se AO 5 Oe de ets: 6 
FStsTALLY3; SlssSleFSs OLS=TESTBs DSt2FS OCT3 . 34532100 ! 
END ELSE 34532150 |@ 
¥ sisSlissSl+]} 394932200 : 
6CIF SC=ALPHA THEN BEGIN STt=Sl+15 TALLY? STALL Y+i13 END 34532250 10 
ELSE JUMP OUT); 34532300 /@ 
NO ee ee 9B Oo ee ee iG 
ELSE ; 4 34532400 " 
BEGIN DLtsSPCsDLtSDI+730SS2CHRIENDS ¢ 34532450 l@ 
Sis ts ; ts pOStew0S3 34932500 sss 15 
SCANSSTALLYSNRCDI8=LOC SCANSUSSELIT%4")> 34532550 i 
ENDs 34532600 @ 
Fo te UU UII Uk dk a i ee 34992650 cee ie 
Fo ete ete II IO RO EITC TO ia Rt NO ok BO nek 8 tO ek he ete 39392700 , i 
STREAM PROCEDURE PROPOGATECPs JUNK eRI es COUNTsRIMODCOUNT)3 34532750 21 @ 
AL R OUN RIMOD NT ee a Sar ea See A Se 21 
BEGIN 34532850 2 
LOCAL Te TRI»TRMCoTC3 34542900 | @ 
iJistO ; 2S i ; $sO1+73 sb sChRy Seg Sama a oh 8 co ag es ee ge te ee 24 
STssLOc RIMONCOUNTS S1rssS146s OL3=LOC TRMCS DIt=ol+73 pStScHRs 343533000 fs 
STt=sLOC COUNTS SIteS1463 Ortetoc Tc3 DliszDI+7% OStecnR3 34533050 2| @ 
sPi Oltei OC T? pStswos: -9a533p00 be 
DIssJUNK3 SI83T3 34333150 , He 
TCCST32S1*323 Sls=SI1"32)3 SIl:=SI*COUNTS 34533200 | @ 
____Te(nst332 ; t=32 CHR)3 NS8EC ; 5 Se eee eR le ae ee, bs 
Sr:slLOC P3 Dl4ats STS=yUNK$ . 34533300 a 
TRIC2ZC32¢TCCOS§=32 CHR} OS2=32 CHR)$ DSt=CQUNT CHR; 34533350 2 @ 
T TisSim323 Sltssl732)5 Sls=Sl=CountT 3 a ae OO OG esse re eee oc ave a 
RICTCCOS3=32 CHRs OSt=32 CHR)S DSP=COUNT CHR; 34533450 
TCCSI#=S1"323 SIt=S1932)5 SIP=S1*COUNT)3 34533500 2 @ 
M i= ; £5 3, HR )3 b) 0 TERRI Tne Mle 00 ke Se or Oe wee eo - 
DStsRIMODCOUNT CHR; 34533600 3 
TesDIJ DItePs SIsLOC Ts OStsWDSs 34533650 @ 
NE) 3 4 rf OY pied : 
FEO III IG III IUIG III III IOI III I ti einnicetiinis 34533750 “ 
STREAM PROCEDURE RIPPLERC(P>RIsINCR)S VALUE RIvINCRS 34533800 |@ 
- " 533850 Me tk a ee oe ee az 
LOCAL TPsBsTRI3 eg 34533900 ia 
x ; 34533950 be e 
Srs#LOc RIZ SIleeSy+6s OlseLOc TRIS DlteDl+73 OStscHR; 34534000. foes : 45 
Sys=P3 Ol%=Loc TPS DSt=woS; 343534050 46 
SrssTPs O]ssLOc Bs SlteSl"1s DLtsul+/s OStEcCHRe 34534100 |W 
SIts_QOC Bs DItaTPs SJs=xSt+735 34534150 ag 
TRICACI2CTALLY #83 TALLY SSTALLY+INCRS BraTALLYs OStaCHR3 S1##S7"4))23 34534200 49 
RICTALLY #283 TALLYtsTALLYF4INCRS BS eTALLY; OS2achRs Slt sSlet)3 34534250 sd @ 
TIPt2O1s Olsap3 SieelLOC TPs OStewOSs | : Casts “ 34334300 | . 51 
END 34334350 5 
FoR III TI IORI UII III III III ISI IOI IOI GIS OG tee 34534400 5 @ 
INTEGER STREAM PROCEDURE SPECIALMOVE(NsA*B)5 VALUE No ABs 34534450) 
BEGIN LOCAL .NNZ: Pee moe 34534500 ; 55 
STteLOC NJ SIssSl4+os OLFeLOC NN OLtsD1l+73 OSt= CHR 34534550 a . = cd @ 


Sitaa} OltsGs NNC(OS!832 CHRS O0S8#32 CHR)s DS?™N CHR} Raters 34334600 


Data Documents/inc. 


@ é 
SPECIALMOVE$=DI3 34534650 
r END} 34534700 @ 
Toe ete ee i I I OI IOI OO ick iin iio ek iota 34534750. eoeeen 
1 INTEGER SLoPoRIsCReETeTRIe NRE 34534800 
@ INTEGER SST3 34534850 
3 ABEL PROPEDs»PROP SIMP 9394900 
4 LABEL BACKsRIPP ATs BIBACK»PROPs_OUKeF INISHEDSCANING?XIT3 34534950 
@: BOULEAN BUsOCTLL»LNGsMINUS*LITPATS 34535000 
6 DEFINE SCANR= 535050 _ : 
7 COUNT # @SCANCLASTSCAN#@LASTSCAN* NR» SPEGCIALCHR) 4, 34535100 
@ |: SCANS(SCANS1)= 34535450 
9 STRINGSCANCLASTSCANsLASTSCANsSP oP» SCAN Te '¥ 5 ee ae 
no DEFINE JB=JUNKBUFFERA; 34935210 
er . 34335250 
bis sea Met Te Sh Bs ae ee ee ge a are ee ae ee ee oe eee 
IF LITPAT?2CHRS=0 THEN CHRS!'=1203 : 34535350 
eo” CRESCHRSS 34535400 
ps Pi=P ATA , Soa hee arc es Ss ei re oe ee eS Rit Nee ene 
a WHILE TRUE DO 34935500 
@ i BEGIN OCTLLY=FALSE3 %150134535550 
| BACK Se I OE ee eT ee ee ede ee ee eee NYSE ETT CY o/s ee 
aa SCANR3 34535650 
@ i IF BJS=COUNT LSS C THEN 34535700 
R =zNR gS ee IG IG i tee 
IF SPECIALCHRS""" THEN RIS2CHRS ELSE 34535800 
@ IF OCTLL?=COUNT=3 THEN GO BACK ELSE 34535850 
P BEGIN a ae a a eee We Wo F208 NR ee : 
RI?=CHRS3 34535950 
Or OCTLLS=FALSES 34536000 
b 5 . > 6050 — Soe 
ai ET%=03 34536400 
Or SCANR3 34536150 
NQ 0 bs 3419 Sea eitig: hate I 
IF OCTLLEZ(SPECIALCHR NEQ "*") THEN 34536200 
@ GO RIPPATS 34536250 
OUNTS#SCAN S36 300 on 
SCANR} 34536350 
@ IF (MINUSSSSPECIALCHR="=") OR SPECIALCHR="*" THEN 34536400 
i] N 6 Q PE 
SCANR} 34536500 
@ « NTOSaNRS 34530550 
: SCANR 4536600 eee 
END 34536650 
@ | ELSE NT6%=13 34536700 
HRS$SCHRS@RIG 42d07 50. Soe 
IF RI GTR 4096 THEN 34536800 
@ BEGIN - 34536850 
RIPPLER(P,4095s IF MINUS THEN 63°NT6 ELSE NT6)3 34530900 
RItsR1 “40953 34936950 
@ END$ 34537000 
IF RI GTR 1 THEN 237050 
RIPPLER(PsRie1eIF MINUS THEN 63°NTO ELSE NT6)3 34537100 
@} GO LOOK; : : 34537150 
IF BJ THEN 34537250 
@: BEGIN : 34537300 
OCTLLYSBVt=FALSES ‘ant 34937350 
BUBACKS SCANR? oe j Sn ee | 34537400 
Or OIF SPECTALCHR NEQ "*" THEN m a as : 34937450 
: F OCTLESeCOUNTs3 THEN GO TO BUYBACK ELSE GO TO _RIPPATS 5 ¥1404634537500 
@ 
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é q) * * + 0 ., 7 ~ 


BBs Segre sess 
o & & & bs 


68 3 8 8 5 


END; 34537550 
ce 34537600 
= Oo WO AT ONO eet 
WHILE TRI nC RI oo 34537700 
BEGIN 34537750 
Tm 8 a NN a a a OO hn ele 
COUNT S=SCANS(MIANCRI@PRI 903) )5 a 34337850 
IF ET=O THEN GO PROP ELSE 34537900 
= rig eS is 3 pee 27950 een 
BEGIN 34538000 
SCANRS3 34538050 
Nae a ee ee ee ON 0 oe Scot toss 8 Se 
END ELSE 34538150 
IF LUNGSsET=1 THEN 34538200 
ce oR Tc a a a a a a ae tt oe, Ws a 
ELSE 34538300 
BEGIN 34538350 
IF LITPAT THEN 34538450 
BEGIN RI&%sTRI+COUNTs GO PROPEDsS END ELSE 34538500 
RI@sTR OUN y AaKI238550.. 
BEGIN 34538600 
IF Pe({FFIJ=0 THEN 34538650 
sss tee oe RA Bae ra SAS GA FOG 2 
GO SIMPLE; 34338750 
IF CSSTtSCC8xP, CCR ])#PelFFI=TRI)) “QD d= O THEN 34538800 
Sa GIN a BS AS Oc te ct etl oa en 
IF TRI LSS 8 AND RI GEQ SXTRI THEN 34538900 
BEGIN 34539000 
PROPOGATE CPs JUNKs 7#1RI#0)> 34339400 
IF TRLi=8xTRIeRI THEN GO PROPEDS 34539150 
BN aa eas 9a ee OI O00 eet Ae aoe SS Bat 
ELSE 34539250 
BEGIN 34539300 
PROPIT3 ES aE Se a a I GS SO mr hae oe ets 
JUNK? 50$ 34539400 
IF ET#seCCUUNTSSRI“TRID DIV TRI GTR 34539450 
OY rik IN alee iter ales as =< 34939500 feet gy ee ise eee eon NS 
BEGIN PROPOGATECPs JB, 4095eTRI20)3 34539550 
ETesET “40953 34539600 
he ne ZWUNKESO3 : 34939650 
ENS 34539700 
PROPOGATECPsJBbes ETO IRI» 34539750 
ENTIEKRCCJUUNT MOO TRI))3 34539800 oa __. 
GO PROPED:.. 34939850 
END} ° 34539900 
SIMPLE : A MOVECCRI@TRI) OLV 8, i ; 34539 
P&=P+(CRI@#TRID DIV 824 34540000 
IF ET%=(RI@TRI) MOY TRI NEQ O TREN 34540050 
Pt=SPE TALMOVECET*P* (TRI DIV 8)-F)3 345401400 . 
GO PROPED3 34540150 
END ELSE 34540200 
R TE) N 45402590 erat 
GO PROPIT 34540300 
ELSE 34340350 
34540400 oe ee 
IF RI@TRI GTR 4095 THEN | . 34540450 
BEGIN. 34540500 
PIsSPE YALMOVECHO9Se (SST DIV 828 34540550 


Data Documents/Inc. 


o a a a * 5 % * A 5g = 5S >. 


oon~z Oo OF F WH = 


CENTIERCSST MOD BIILCTF I>): 34540600 
TRIseTRy+4095;5 34540650 
Seen anaes j BY on 
PtsSPECIALMOVECKI"TRIACSST DIV Ad& 34540750 
CENTIERCSST MOO BIIECTFILF)3 34540800 
pe aI I I i ee IoD ed a ie 
ENN3 34340900 
PROPED?: 34540950 
RI tsk O00 PR re te gir ree ee cee 
END$ 343541050 
ENO 34541100 
Nos 2h AS wR iP eS Dah ee oa a 
SCANR3 34541200 
LOOK: 34541250 
P A R=") THEN Gf NISHE SAN ween EPO ah lor ns eae ee Ae 
ND3 34341350 
F INISHEDSCANING! 34541400 
NOT LITP 7 Sa ele eee ene oe 
IF CHRS NEG O THEN 34341500 
BEGIN 34341550 
R RSEMOVECCR@CHRSsPe (PATBUFFY+(CR DIV BI es IIIS et SUD OOO anes et on aan 
ENTIERCCR MOD BYCCTFI); 34341650 
IF RISSCHRS DIV 8 NE® O THEN 34541700 
_ BEGIN BATH 2 
CLEERCPATBUFFeRIw1);5 34341800 
IF TRI&SsCHRS MCO 8 NE@ O THEN 34541859 
HARACTERMOVECTRIsPATHUFF sPATBUFF+RI DS ORT Ase NE ee et eta eee 
END 34541950 
ELSE 34342000 
050 Morr 
CLEAR(RI»1)3 34542400 
Ser Ge nenee gee pCR UU MOHIe PATBUFF)> 34342150 
NO? ‘ OH 6 eee ee eee 
END; 34542250 
XIT# JUNK8203 END OF PATTERNGENERATUR:S 34542300 
SPOP OM 942350 a 
Soe ee te RS II TI TOU tO ok iO kite 34545000 
PROCEDURE GETPATTERNCPsB)3 VALUE Peds INTEGER FB} 34250000 
A N 60000 Pee 
34560005 
COMMENT PLACES PATTERN P IN BUFFER B63 34960010 
34560015 
LABEL XIT3 BOOLEAN CLR; 34570000 
% 34370100 
STREAM PROCEDURE BUTLDLABEL (DMF LiUsF ID» DATES PRN) 34570200 peter Ot. 2a! 
VALUE DeMFIOsFIDsDATEsPRNS : 34570300 
BEGIN 34570400 
‘P1320 34570500 
DNS*s8 LIT " LABEL "3 34570600 
SI$sLOC MFID3 34570700 
DS$3216 CHR3 __@MFID 8 0 570800 . = 
DSte3. LIT "OO1%3 . MREEL NUMBER 34570900 
SliaSi43) OS285. CHR SCREATION DATE 34571000 
DS#25 LIT "993643 PURGE DATE 34571200 
DStsLIT "or; &ZTAPEMARK END 34571300 
DSis! "9900013 x iCkK COUN 0.0 a 
OSts? Lit "0080001" RECORD COUNT: 34571500 
oeeetit oo NOT MER ee TAPE 


D 2S Of ee 2 SRRY NUMBER 


34571600 
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+ y * E : 


FSRSSRENS eS 


Cees 


DStsLIT "oO"; BUNBLOCKED 345710800 
DSt=5 LIT "00010" BUFFER LENGTH 345/1900 
Fe MAS TT OOO a ne A IRE i iT ag See ae eM OP OO ae eo el ae a 3 he 
DSte3 LIT "*oO00"3 34572100 
END; 34572200 
Dg Ee eS a ea ee OS tee tk 
IF CLRE=BOOLEANCPeL121]) THEN PP =ABS(P)3 34280000 
IF ene LSS EMPTY 34590000 
34600000 0 
IF NTiaP THEN ZPATTERN ALREADY PRESENT 34610000 
GO XI[T %S0 GG UN 34620000 
a0000 
BEGIN %¥pELINK BUFFER FROM PRESENT PATTERN (NT1) 34640000 
IF NTStsCNT4isBUFFERS[BI). CLB 150 THEN BREAD OF LIST 34650000 
= 
~ BUFFERSUNT3 3. CLF JtaNT4, CLP Png 34670000 
BUFFERS(BJ. (LF Js03 34680000 
_IF. "NIStENT4,CLF 120 THEN TAL OF UIST ~~” Be ets OS OS od 
PATTERNSENTIIJ-CLBI8=NT3 ELSE 34700000 
BUFFERSCNTS] ,CLaIi=0;3 34710000 
B RSCBIe(LBI3=03 se ee a ee POD: 22 2G ae 
END; 34730000 
If PsEMPTY AND NOT CLR THEN GQ X1T3 34740000 
RCCNT32 spU RSCB JeNT3.¢CS i) be eeieoes ts 2 een 
IF PSEMPTY THEN GC X1T3 34743000 
BUFFERS(BI, C(LBJt=PATTERNSCP),CL BJ: 34760000 
RNS P RiseAs = AEG OOO seta te Ek 
IF NT2'@PATTERNSLP), CLF Js0 THEN 34800000 
BEGIN 34810000 
PALE RNS EP D0 ee fn ee OOOO Uc ee es 
IF NOT CLR THEN 34830000 
BEGIN 34840000 
rtees = OG OO oe Sate ow ns, =e 
BEGIN 34840200 
BUILDLABELCBUFFERS( BI eC CRI FHEAUVERI ESI» HEADERL 29)» 34840300 
TARE DATE PRN UU wt OO UO GO hess uk. atte Sek es 
ae MbTe 34840500 
34840600 
tf PPONEO PPLE(NTUISPATTERNS[P),(23210) THEN B00 0 is woes 
READCCODEFILELPPJs30-PDESCI*])3 34850000 
FIRSTSCANE@LASTSCANS=COREAUUR (PDE SC)+NT1,(1685)3 34870000 
COMPILING £sTRUES AON 
SCAN; 34890000 
IF PATTERNGENERATORONT1o CCRIsGUFFERSC BJ ef CF]) THEN 34900000 
7] 
IF CSWITCH=0 THEN. WRITECTWXCOBLI D3 34911000 
BETES Cy TCE AP a TE Rr ec One Ee es 34920000 
930000 
END ELSE 34940000 
COMPILING? =FALSES 34950000 
; y 
VALWEMGVE C2eCOREADORCHEAVERL28]) sBUFFERSLBI],(CFJ41)3 34950200 
ENO an : “ 34960000 
ND ; 970000 _ on 
ELSE 34980000 
iF NOT CLR. THEN 34990000 
A MO Ps NSEP SF)» BUFFERSC(NT2) Fl > RUFFERSCEB QOQO000 
“KITt BUFFERSLB}, CF ainP: ENDS. %¥140635001000 


etesasestsosstetasduseneressnsss sys tssasasinerineestddhwersseiedeysees 39002000 


REAM PROCEDURE DISPLAYHEADINGC BUFF s/Da TD eXLATE 


14063500210 


Data Documents/inc. 


VALUE BUFF *sXxLATES 


~ DSt=40 LIT ™ CONTAINS("S 
JUMP OUT TO L); 

" c Wes = 
8CIF SCs" " THEN JUMP OUTSUS3=CHR)3 - 


~~ ‘J 


*#140635002200 


BEGIN 140635002300 

— LABEL Lg Stee ereriomie 2) Ae Hote Lo ON U8 66 Rates aaa ene eee 
D1t=03 %140635002500 
BUFF CDS3#7 LIF “BUFFER "SS1#3103 #140635002600 

hse tos Sc="_" wl MP GUTSDSis Bie BAR eS eases RIM OG SS UU CT OO niin ie a! 


%140635002800 
%140635002900 


%140635003100 
@ OSts4 LIT " TSCM; %140635003200 
$ SI#=LOC XLATESST#SS74+55NS223 CHRIDS$s2 LIT Moems a 40635003300 
po END3 % 140635003400 
eo" Fe III IOI III IOI IIIT TI III I IOI IG i idiot ie 35003500 
12 a 2 eT III IIIT UIUC II UGO OO Odden 3 5004000 
PROCEOURE NEWDISPLAY(I)s VALUE I> REAL 13 %140635004400 
@. BEGIN %140635004200 
nS es ee SB Su eete Manns we Be aes, eet Sth Nene s . oO. ae _ a. Teta 
ne COMMENT INTERPRETS TYPE 15 OLSPLAY INSTRUCTIONS %140635004400 
(” % , %140635004500 
he DEFINE BISBOOLEANCI #3 4140635004600 
i % . %140635004700 
eon STREAM PROCEDURE SVDISCTYPEs NAME» BURP» VARs GUTB); 4140635004800 
: —______.__._ VALUF TYPE sBORPsVARsOUTBS ——-_%14U63500K900 oo 
a BEGIN %140635005000 
@ FP LABEL wOCelOCeRESLT e+ XIT» CHECKS %140635005100 
2 Se Fa a A aa tat a ren a ie eS hee POM ABU BOOS ae 2 6 caren cane 
P DIt=s0uUTB3 %140635005300 
@ * CLISCI4TYPES %140635005400 
a fees a Go y 110 ee 
Pa GO 10n3 %140635005600 
@ * GO RESLT3 % 140635005700 
‘ WOCS DSt=714 | *wORD COUNT "3 GU CHECK; 035005800 
Iops OS8s1i LIT “1/0 DESC "S$ GO CRKECKS %140635005900 
@ | RESLT#OSt541 LIT "RESULT DESC"S %140635006000 
: : pe cs ta Son 2A os IR Be ee ee te PON O40 Oren ets en 
: CHECK3 %140635006200 
Or BORPCDS%=12 LIT " FOR BUFFER "3 %1406 35006300 
b6 STS=ENAME3 E140 QOV64QO 
id  BCIF SC=" * THEN JUMP UUTSDSi=CHR)S %140635006500 
@ - JUMP QUT)3 %140635006700 
. Ps 8 ee ee TOG 5006800... ok... 
. DSt=3 LIT * = %; 140635006900 
@' rt %140635007000 
‘ SU%SL0C VARS j pity Ganesan, 
“3 TYPEC2C 8COSt#3 RESETS 3CIF SB THEN OSs=SET ELSE DSt=RESET3 % 140635007200 
@: SKIP $B))30583LIT " "); %140635007300 
ene ameaen ASE 1” 008s! Ui) CW cD © a cy Sm ee se IG POO 7 Oe pee ea 
DS?=8 DEC; %140635007500 
er DIs=01=83 %140635007600 
"| OSL ; } 6 Q77OQ 
| XIT8 END OF SVDIS3 %140635007800 
@ - %140635007900 
51) NT GER BORP #ADDR? * 1406 9008000 Face ereret cede Sears 
LABEL BDISPLAYS3 %140635008100 
@: %140635008200 
aa BORP?=1,£24:9 #14063500830 pee a 
55 IF B1.033%1) THEN WRITECOUTFILPAGE) )3 %140635008400 
@ F: IF NTite1,€39333"0 THEN %140635008500 
et F Bret 34t HEN WRITECOUTF EL OBL I. ‘LSE 4140635008600 
e 


Data Documents/Iinc. 


a 3, G a 7 . a 2 a 5 <a S 3 3 


IF BIleC33%1)] THEN ELSE %140635008700 


WRITE COUTFID 4140635008800 e 
ELSE Beta es 
IF NTL#1 THEN . %140635009000 
BEGIN 4140635009100 1@ 
BS OV Oa a i ee re ee ee OO T0900! uty sd 3 
IF BIe(3581] THEN 2140635009300 ‘ 
BEGIN 4140635009400 3|@ 
’ 5 £140635009500 6 
IF NOT TAGLEPRESENT THEN 2140635009600 a 
BEGIN %140635009700 |@ 
READ CODEFILEC HEADER LOD +, J+ HEADERLT6O),BNAMES(*J)3  %140635009800  — 9 
READ(CODEFILE)3 % 140635009900 19 
TRANSFERIN(HEADERL 2)» 50s CODER ILE sPNAMESE#))5 %140635010000 |@ 
CT ABLEPRESENT?3TRUER Sie oie sone ER PROR ASOLO P06 ~ occ. hi ol ele 12 
END %140635010200 "3 
IF NTis1 THEN . : % 140635010300 |@ 
bie teh shoes Oe ____DISPLAYHEADINGCL,OUTBUFFERs»BNAMESCBORPJs = = == ss ¥440635010400 ene aR 5 
IF BCL FEN “BCL” ELSE “INT") %140635010500 16 
ELSE %140635010600 |@ 
__________DISPLAYHEADINGCO,OUTLUFFERSPNAMESLBURPJ» ss 40635010700... ‘3 
IF BCL THEN "BCL” ELSE "INT™)3 . %140635010800 ‘9 
WRITECOUTFICDGL) s@sQUTBUFFERL4))3 %140635010900 1 @ 
ND hb : Rad Id A ase ae eae fe Sy oe eS pp ree ee il 
ADOR?2BUFFERS(INT22=1 ,Ce4t9]1,(Ccr Is %140635011100 22 
SIZEtSIF NT1=1. THEN BUFFERSENTEI.LSFI ELSE %140635011200 23 @ 
Basel oO ee ge PAT PERN DCR ORP ISP Tg RAS O TIO ge ee ee es 24 
MOVEANOWRITECBI.C 3581)» %140635011400 : e 
NTStsIF NT3ta16 Lise yap THEN SIZE ELSE 4140635011500 sy 
0 $C) fe ee tg 2 
IF NT43 =1e[612)= C THEN I,CSF) ELSE 3140635011700 1@ 
IF NT4=s1 THEN naa Cerede er er ELSE %140635011800 : 
IF NT4te].C6sz2]20 THEN STZE")].CSFI41 ELSE 35012000 1@ 
IF NT4=1 THEN SIZE*MINCABSCTALLY )¢SIZE)#1 350121400 3 
j2200.. dopa tent ncrtt ASO eo at EY rae 3 vce nh PSS BS 
BI.{34t%1J> % 140635012300 le 
OUTFI>» %#140635012400 r 
ADDR+ 2¢1) THEN CSIZE"NT5) ELSE O))3 2140635012500 |... 3¢ 
IF Blel35t1) THEN WRITECOUTFICDBL1)3 %140635012600 7 
END 140635012700 4@ 
a 
IF NT1=2 THEN %140635012900 “0 
BEGIN % 140635013000 «|@ 
IF_NT2S#PATTERNS (BURP, CLF NEO 0 THEN 1 L249] tsNnT2 % 140635013400 _ 42 
ELSE BEGIN 2140635013200 4 
GETPATTERNCBORP,1)5 : % 140635013300 4@ 
4t9)ssi3 % 140635013400 ee As 
END3 % 140635013500 ‘0 
GO BOISPLAY? %140635013600 at J 
%140635013700 . 48 
ELSE % 140635013800 ‘9 
IF NT1=3 THEN . %140635013900 s1@ 
THEN 3 % 1406350314000 51 
WRITECOUTFILDBL1*D TALLY? TLLY) %140635014100 5 
ELSE %140635014200 s|@ 
WRITECOUTFI*DTALLY*TLLY) 140635014300 sees os 
ELSE oe . %140635014400 65 
BEGIN eS : : | %140635014500 + @ 
_CLEARCOUTBUFFER» WAUFF) 3 et ee ee ae ¥140635034600 5 
@ °@ 
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& 
SVOISCNT4251,03623] sA8NAMESLBORPI, %140635014700 
r BORPsIF SOKP NEG@ O THEN BVCWROFBVARX(BORF@1)4NT4) ELSE 35014800 
= Tas -NW NT ELS OG «3 ay cecn pnnre tue ates 
IF NT4G=1 THEN LIOD ELSE SAVERs %140635015000 
@ QUTBUFFER)3 %140635015100 
IF BI,[348 H RI’ FICOB T * 0 fase elas iia? 
WRITECOUTF 1» 8*CUTBUFFERE *#))3 %140635015300 
@ ENDS 140635015406 
; ea ht SS a we a Oe OF. ir in wee 
: Fe te II III IO III III III IG IOI Gn Oro i inne tit 35021000 
@ PROCEDURE DISPLAYITCINSTRUCTION)3 35021100 
i } iE RO OPO 00: ee 
35021300 
@ 35021305 
k 35021315 
e "4 INTEGER BORP*SIZE3 | | Sous taon | 
See ae eee i SA A a oe ee ese OO a ee ee 
Mi % 35021517 
@” IF NTL#*INSTRUCTIGNs£36!60] GIR 1 THEN 35021519 
WRITECOUTFICLPAGES) 35021530 
e ; ELSE 35021540 
Ss Oe Peete 8 : j 501559. 2 babs 
p2 IF BORPL=INSTRUCTIONe (FF ISEMPIY THEN 35021600 
@» BEGIN 35021700 
I BC INSTRUCTIONS (2:13) THEN aI. ooh ee 
IF BLONT1) THEN 35021720 
@» WRITECOUTFICDBLJ*DTALLY*TLLYD 35021730 
P7 2 — 35024740 
Pe WRITECOUTFi*DTALLYsTLLY) 35021750 
OF ELSE 35021760 
022400 
WRITECOUTFICUBLI) 35022500 
@ ELSE 35022600 
Pi ds ee a ee 
END 35022800 
@ ELSE 35022900 
BEG 023000 eee ee en hs 
CLEARCOUTBUFFER®*WBUFF 23. 35023400 
@ JUNKBfSINSTRUCTION LSS 0; 35023500 
F_INSTRUCTION,LSCF] &SS 63 THEN 023600 
BEGIN 35023700 
@ IF NOT TABLEPRESENT THEN 35023710 
= G 1023 
READCCODEFILECHEADER(OJ+11> 35023730 
@ | HEADERLO]+BNAMESE*IJ 23 35023740 
DEAD CCODEF IRE) 5 0 es 
TRANSFERINCHEAUERL2 1» 30% 35023760 
rd] CUDEFILEsPNAMES(L#))3 35023770 
ABLEPRESENT?% eTRUES 5023780 = 
ENDS 35023790 
@r IF JUNKB THEN ~ 35023800 
DISPLAYHEADING( 1 sOUTBUFFER,BNAME SCBORP): 35023900 _ 
IF BCL THEN "BCL” ELSE "INT") 35024000 
@; ELSE 35024100 
SPLAYHEADING(O,UUTBUFFER» PNAMES[BORP J» 35024200 : 
“LF BCL. THEN "BCL" ELSE “INT")3 35024300 . 
@ fs WRITE COUTF {DBL JeWBUFF /UTBUFFERC#1}3 35024400 
0. 5024500 = 
®@ 
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i ee OBOE ace 
END; 


35026900 


FoI I IIIT IG IGIIIOI II IIGIUIG IDI IGIDIDIG OGG Olio i tien ite 35030000 
030100 


— 35024920 0 


ees OP Se 


oa 8 00a 2 0 re 


en i a nthe ren ntntnernnenninnenr-rneinnehir 


ADOR?SIF JUNKB THEN BUFFERSCBURP)] ELSE 35024600 
IF NT@t=PATTERNSCBORPI,LLELE #0 THEN 35024700 

a ERS Bh Sp __________________as2aaoo. 
RBUFFERSENT2I]3 35024900 
SIZEt#IF JUNKB THEN ADDR, CSF) ELSE 35024910 
. IF NT2=0 AND NOT JUNK® TREN 35025000 
GETPATTERN( BORP#1)3 35025100 

MO R t= (NST CE 95025200 ss 
NTStele RE REC TIPE ReTeTSTT. THEN 35025300 
SIZE 35025400 

ae ENTE Se RS, os ae 
IF NT4=1023 THEN 35025600 
IF BLCINSTRUGTION, £3452) THEN 35025700 
poten he cere tan THEN..35025710. 00 
S1ie-(entaseniecanst 35025720 
WRUCOUNT) »SIZE))"1)  %140635025730 
-" CNTGf=hKINCABSCWROCOUNT)sSIZE)) 35025800 
ELSE | 35025900 
SIZE*CCNT4ESMINCABS( 35025920 
TALLY) sSIZE)I@1) 35025930 
CNTUtSMINCABSCTALLY )# SIZED) 35026000 
ELSE 35026100 
Beata ee ia Se an Sy, NST RUE] PUR ted poe N= 
SIZE*CNT4"1) ELSE 35026120 
NT ds 35026200 
7 ADUR,(CRJ+C JF NT4=0 UR NOT BLOINSTRUCTIGN, 35026400 
(2il)) THEN O ELSE 35026500 
N1i4e 3 026600 

IF INSTRUCTION. LSCFI LSS 64 THEN 35026650 
WRITE COUTFICOBLI)3 35026700 


35931000 


PRO DuR OMPARFREOR NS B 
VALUE INST» As %150135030200 
REAL INST INTEGER B3 ¥150135030300 © 
Q) ¢ () 

BEGIN 35030500 
35030600 

COMMENT CALLED WHEN AN ERROR OCCURS DURING 35030700 
INTERPRETATION OF A COMPARE INSTRUCTION. 35030800 

JUNKB YS TRUE IF A PATTERN IS BEING 35030900 

COMPARED 3 

35031100 

FORMAT ERRFC"COMPARE ERROR") >» 35031200 
Nemeoemen sensu"), 35031300 

DIFFCI4, " CHRS CIN "e145" WOS) ARE-OIFFERENT ", 35931400 

WCF IRST IN WRO- "ethan ynya 35031500 

LAB X13 : 35031550 
% 35031600 
IF INST LSS 0 THEN atsAels 35031700 
IF IGNORERRORS GR BLCINST.C231)) HEN GU xIT3 35031800 
IF NOISEQNERROR OR BLCINSTef341]) THEN 7 *140335031900 


BEGIN #140335031910 
WRITE COUTE? (NOJ»NOTSERI3 aoe: fae #140335031920 
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oot mW OF WwW DH = 


wo 


wa » 


a eS 
o wa & 


ne A ee ee A ee ee 
® © = S$ 6 & : 


® ws @ 


(‘Zs 


Ter es 


WRITE CCUTFICOBLI)3 4140335031930 
GO xXIT3 4140335031940 
NDg 4 : 3419 Peers eee ees 
a %140335031960 
WRITECOUTFI» ERRF)3 35032000 
WRITECOUTFICOBLJ)3 35032200 
nae 33032300 
D Pi A RB RRE A | iNK B i4/s 
DISPLAYITC#28INST (242338913 35032500 
WRITECOUTFI-DIFF oDIFFL D3 %150135032600 
5032700... 
IF PAGE THEN WRITECOQUTFICPAGE]) ELSE 35932800 
BEGIN WRITECOUTFICOBLIJ)3 wRITECOUTFILOBLI)s$ ENDS 35032900 
H 
Reveeeee teeth ehe tet aR etki tein 35033100 
PROCEDURE STARTAPETOCIODs»RESULT)3 VALUE 1003 REAL I0D*RESULTS 35940000 
BEG PN “FSS 0000 
RESULT&=03 35960000 
IF gan ene rems 1OrT) DIV 40) LSS DELAY THEN 350604100 
[OREQUESTC nc TO8)aSte31 80781) 100s COREAUDACRESULTOL. 35070000 
UN Lite) 2 OIRLCAFAT: 133 — 35080000 
= = 35090000 
IF BOOLEANCIODe(18%1)) THEN O 35100000 
ELSE TRANS™1 : 35110000 
i a a TR Ni a B00 eee 
ENDS 35130000 
Daaladabehelelelehel heh tell heheh ced dedehed tek hhehed elehieheh hele EERE ELEC LLL. 
PR R ; 2 H 
VALUE ITOD»MASKs KEY 35160000 
REAL IODsRESULT»MASKS INTEGER KEYS 35170000 
ORWARDO3 BOOO0 
Bit INI I IOI III OI IOI IGG I ion i thik eter tte 35190000 
REAL PROCEDURE TAPEPARITYRETRY(RsO1Q0)3 VALUE Re OIOD3 35200000 
REAL Re O1OD 35210000. 
FORWARDS 35220000 
Fa III ITI III ISI IIIS III IIIS III oinieke tines 35230000 
PROCEDURE IOFINISKHCIODsRESULT*#MASKPKEY DSVALUE ILODsMASKSKEY} 35240000 me 
REAL IODsRESULT»MASKs INTEGER KEY3 35250000 
BEGIN 35260000 
INTEGER ADS 3270000 
BOOLEAN STREAM PROCEQURE CUMP(As8»SZ01V64952)3 35270100 
VALUE AsBsSZD1V6405Z3 35270200 
B N i 0.0 
LABEL ERReXITS 35270400 
SltaasOlises : 35270500 
SZD1V64(16 32 5C NEQ DC THE UMP OUT 2 TO ERR 35270600 
SZ¢IF 8 SC NEG DC TREN yUuMP OUP [fu ERR) 35270700 
GO XIT3 35270800 
RR A sls COMPI=TA 3 £ ; 7090 a 
XITs ENDS . - 38271000 
LABEL XITsEsELs «. - ee ae 35280000 
NT R STREAM PROCED RE SEZECHECK(CADS. VALUE. Ad. 80100 
BEGIN 35280200 
SItsAs IF SCa%e™ THEN 35280300 
B N S]tss +)5 } N "er" KEN A t= ND 3 BO4O0 
SIZECHECKISTALLYS ae a, ' : "35280500 


ENDS re ee oe eee ae 35280600 


2ZRO7OO 


Data Documents/inc. 


 ) war Ss @ 
SIZERRI=FALSE3 352860800 e 
@ ADt =COREADORCRESULT)3 35290000 
stand tele he ce SWB T CR Th Soe a ry ce Se sl S000O0 5 ee pee 
LOFT OaTIME C123 35300100 le 
@ IF KEY®1 @R KEY=3 THEN 35301000 2 
Si didiieat 358301j00 3 
WRDCOUAKT SAD? SARS (LODO LCE IA*RESULT ee (CEI)3 %140635301200 ‘e 
@ ADI=MINCADs 1004 USF +193 35301300 6 
~ Zo, L015 00 oe eeereeeee ranean er c 
WROEOURT LeWRabHUNT#S | ZEEHECK CIOL. CCF ]+AD=1)3 %140635301500 le 
@ ENDS %140635301600 ; 
__ TF MASK =3"37700000" THEN GO Fis 35310000. 9 
IF RESULT,C25!8]=MASK,[2556] THEN 35320000 is 
@ IF NOT BL (MASK. C4181]) THEN NOT RETRY I/O 35330000 /@ 
ee ee err eemeamene il 2 SSE ERNE ee ent eee eY ES ee EEE ne teria ope ts AO OO Ott tice at etn ne rel oa 12 
IF PEEIODIs CFF] LSS EMPTY THEN 35350000 "9 
] BEGIN 35360000 @ 
aetna eas _ I COMPCENTIERCIOD,CCFI"(UUULUUUCtC—“‘“‘“‘C;C*™*;COC*#*#‘#@USS3BOOOOOUUUUUU 19 
CLODsCSFIJ“1)*100002291)))> 35390000 ‘9 
é OBUFFsIOD, Rare aee ee 35400000 |@ 
OR SIZERRsSWROCOUNT NE@ JUDeL SFI THENS1406354Q1000 faeereeeee ‘ 
GO E 35410000 "e 
] ELSE GO XIT 35420000 | po 
END ELSE IF SIZERR:=(WROCOUNT NE@ TODeC(SF) ANN %140635430000 ; 21 
P LUDeC(SFJ NE@ 1020) THEN GO E 35431000 2 ° 
Or ELSE GO XIT 35440000 23 
' ee attr ea 2s —354509000 aes rai 
walle IF KEYs3 THEN 35450020 a ® 
@ IF NOT CSITZERR**(1001eC£SF) NEQ@ WRUCOUNT AND %140635450100 26 
; : | ; {ee = 2 
7. ELSE ELSE GO XIT3 35450300 ie 
@ r Et 35460000 23 
i __._-_ TAPERRORCICO*sRESULT»MASK*KEY)§ 8847 OODD es ees a 
: IF RESULT GTR O THEN 35480000 'e 
@ | E1t 35481000 si 
i _ IF rOD LSS O THEN 35490000, i 3 
p BEGIN 35500000 34 
@ | AtEAGLS 35510000 @ 
P O xXIT3 _39920000 ge 36 
p END} 35530000 le 
@ XIT! ENDS 35540000 38 
: Pisibacs <a awe wanes eeeeaG yaa panda ed anaw ana auueWneteeeerneeeee aber: 50000 39 
PROCEDURE READERROR(IOUNsSZ)3 VALUE IUuD,$zs REAL LOD# INTEGER Sz3 35950100 ‘0 
@ BEGIN 35550200 «|@ 
COMMENT HANDLES PATTERN DISPLAYS ON READ ERRORS: 35550205 | 4 
: FORMAT 35550300 4 e 
@ WIFC1Gs" WORDS ("A390") READ WEREE"), 35550400 ‘ 
OKWTE: es" WORDS (%sAd,") READ@="SAME A XPECTED" 550500 9 
BWTF(L45" WORDS ("sA3e") READ@=NUT AS EXPECTED@"“WERE!")» 35550600 ‘6 
@ | DIFFCISs" CHRSCINTsI5s" wOS) DIFFER FROM EXPECTED "» 35550700 | @) 
8 Li = OR fy sp ey B00 ss Ag 
ATITLT LEE PeCie ERROR (",T4e" WORDS READ)")> 35550810 ‘e 
i NOTRANSF("NO DATA TRANSFERED ON READ" )3~ 35550820 
’ HEN SROLs MINOT a 51 
; % 35551000 6 e 
@} IF SZ NEQ@ I00eCSF] AND 10D+CSF1 NEG 1020 THEN 35551100 5 
j ‘ TEL(DBL 1» SIZERRORE 951200. 64 
P WRITECOUTFECOBLI)3 - 35551300 e 
@ & IF Sc ten BOAT? 00% (3F32e0 THEN WRITE COUTF LCDBL 3 ,NOTRANSFD ELSE 35351400 se 
Bb ‘ ee ore S 
@ 
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@ @ 
IF [O01.€FF] NEQ@ EMPIY THEN 35551600 
@ IF COMPAREDATAI=3GCOMPARE(SZ&IQDL1422:1 35551700 ® 
D J,OaU + - x[UD 4 4150 ) BOO athe oto £1 
1 THEN 35551900 
@ | BEGIN 35552000 
3 WRITE COUT PORE Dp BIR WhIST)S OU UUUCUUUCCCCC~—~«SHSH DOO — 
4 WRITECQUTFICOBLI)3 35552200 
@ | MOVEANDWRITECTRUESSZ> FALSE ,QUTFI» 1ODCCFIJ= 35552300 
6 sZ241)x DO Sr ees 
7 WRITE COUTFICDBL] 33. 35552450 
ra WRITECQUTFICOBLI*DIFFeDIFFL DS %150135552500 
9 Ps eS es Ss PSS PANOi ee 
Bi EXO ELSE 35552700 
eM BEGIN 35552800 
2 WRITECOUTFIE ]sQKW 39592900 
WRITECOUTFICOBLI 25 35553000 
Na END 35553300 
[5 ies eee hie ao SE a oh i ee i ol ee OO PO eS. 
he BEGIN 35553300 
e@” WRITECOUTFICOBL I WTF sWLIST) 3 35553400 
18 : i 
| a MOVEANDWRITEC TRUE» SZ*FALSEsOUTFI»s | 35553600 
er TOD.CCFI“CS2"1)x100,(22811)3 35553700 
} eee WRIT T ) tet SURE AME WRENS. P= Sos 5 1 0) 0 Ree een ee 
ENDS 35953900 
@» END; 35954000 
P Bie SIN ta a ee se a a ee 35954109 2 
P TRU IOI III III III Gr Ii IGG iO inion ite 35554500 
@ : PROCEDURE TAPERROR(TOD»RESULT»MASK»KEY)3 35560000 
z REAL IODsRESULT»MASKs INTEGER KEY; 35980000.ti(i‘S;C;S# 
@r BEGIN 35590000 
30 . OO ad heen tee 
COMMENT | | 35590010 
eo : a 35590015 
| A TAPE ERROR OCCURSe IT IS aLSO USED AS A 35590025,t—<Ct~t*é 
8 RESULT DESC ANALYSIS KOUTINE WHILE TAPEPARITY 35590030 
" 55900 reekin sh Sop: 
STACK 1S AS FOLLOWS “WHEN A RETRY i/o 1S BEING 35590040 
OF: ANALYZEO BY TAPERROR: 35590045. 
TAPERROR CANALYZING RETRY I/U) 35590055 st—~™S 
e TAPEPARITYRETRY 35590060 
APERROR N £] x NA ‘ R : OO GS nr 
“35590070 
@ + ae 7 o 35590075 
NE ReRE SI 35600000 
é RL®REALSS 35610000 
e INTEGER ET 35620000 
| NIEGER SAVEDELAY? 620100 
BOOLEAN RETAYTOG»PGEs ABR» RETRYINGs MAKELOG; 35630000 
@ » OWN INTEGER RTYCOUNTS 35640000 
wAB STMeADaeX1 tT» SP JUT*#TAPEPARITY> ODS* PAGECHECK 35650000 
é FORMAT 35660000 
 ) 5 ULF CSOcM=")), SULFCHC™= yo Mou ( ey yy, 35670000 
2 NOTRANSF ("NG DATA TRANSFERED ON READ)» 35680000 
BLNKTPEF (X24 "BLANK TAPE ON WRITE"), 35690000 
Or. ERRF CAs” FAILURE") > 35700000 
by mo NOERRFE CX 24,"NO ERROR BITS") 719000 
Yd 
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a: 


BLNKTPERF(X24e"BLANK TAPE ON REAU")» 35720000 
D20F (X249 "PARITY = 020"), 35730000 ® 
2 Y= We SOO ts i ea tet 
AESFCXSs "RESULT DESC, = ")> 35750000 ; 
IODF(X8e"I/0 DESC. = ")s | 35760000 1@ 
Gee _RETYFCMANALYSIS I/0 #"sTgo™ "oa5e CCT PONDO } 3 
ORIGFC™ANALYSIS I/0 #0 CORIGINAL I/U)")>» 35780000 4 
BLKFC™*ORIGINAL 170 GN BLOCK #"s15e" WASI"), 35790000 |@ 
—BRIGINALFCM*AGRIGINAL 170"), __-35800000,—“(i—s~s—~—~—~—~—~—™ 6 
BOTAEF(X24e"B80T (AS EXPECTED)")> 35810000 ? 
BOTFCX24s"B0T")> 35820000 1@ 
cae ” "wy Sas So Tae SEY Qo oes othe cea oon, Nees 9 
TAPEMARKEXPFC "TAPE MARK RECORD EXPECTED" )= 35831000 10 
EOTAEFCX24,"E0T CAS EXPECTED)" )» 35840000 /@ 
ee seats e"EOF = "ye | Se el es Sah cn BOO OO ec ct te 12 
EOFAEF(X24,"E0F = D21 CAS EXPECTED)")» 35860000 "3 
EXPFCI4s" wORDS EXPECTED WEREC™PAIe™ DON)» 35880000 @ 
sv ieee " " mormy, 35880100. —«sssisdsié‘ia‘aé‘aiéwiwk 18 
TMWFC"TAPE MARK RECORD WRITTEN")» 35880200 16 
DL9FCX2Ms"NEMORY PARITY = D9"), 35890000 /@ 
_ ne SES VO GOO esc ctce i oe is 
DLI7FCX24e"MEMORY PARITY = Di7")» 35910000 Je 
SUCCESSFC"COMMENTIN# /# X95 35920000 : 
ot ' = Sta Nias : 
"eRETRY ROUTINE EXITED")? 35922000 a 
IRRECOVRE C"COMMENT8"945X9 35923000 23@ 
tt fc; 7) r ba 
WeRETRY ROUTINE eee 35925000 ; e 
BLNKTPEIRREC(C"COMMENTE M6 / 0X9 35926000 a 
itm " 2 
MeRETRY ROUTINE EXITED")» 35928000 ‘@ 
SPACERR(X24+ "SIZE ERROR("s 14," HCKDS SPACED OVER)")» 35928100 Ps 
ee U z ge 929000 30 
“NO RETRYS ATTEMPTED ON THIS TYPE I/O 35930000 1@ 
"AND FAILURE» / 9X9» 35931000 32 
as sees 1s As Z Ep" BP SZOOO se ete echodethte tt Me he on ee 83 
STRANGE C"COMMENT!%9/sX9 35950000 3 
"PRECORD WAS INTENTICNALLY READ IN "> 35951000 =@ 
a " PAR SFS9S 2006 cee Mo ly ee re 
"eNO RETRIES WERE ATTEMPTED", / 9X9» 35953000 37 
"eERROR ROUTINE EXITED" )» 35954000 4@ 
Pa "COM : sqT " 960001 
" =COULD NOT READ RECORD WITH ORIGINAL"> 35970000 0 
" 1/0 BUT COULD WITK THIS GNE"s/s 35980000 «|@ 
" “RETRY ROUTINE WAS EXITED")» 35990000 a aa 
BADC’COMMENT? BAD SITUATION" s/s | 36000000 | 4 
ow "DATA KEAD* WAS INCORRECT" »/» 346010000 4@ 
" “SINCE HAROWARE DETECTED NO "e 36020000 tases | 45 
“ERROR CONDITIONS» RETRY ROUTINE WAS EXITED)» 36030000 : 
INVADORF(XZ4s"INVALIO ADER = 02223 %140136040000 Ld 
STREAM PROCEDURE IODANACUP»DIRECTpTUG»MCDE » SIZE pAsB)3 36050000 At 
VALUE OP» DIRECT» TOG*MODEsS1ZE3 36060000 | 49 
BEGIN 36070000 1 @ 
OCAL T1s 36060000 _ 51 
LABEL L3 36090000 . : 
SItsLOC OP$ DItSLUC T13 DI t=b14+7s DSSsCHR3 36100000 sj @ 
p1t=B3 36110000, 5 
SlisSl473 Slt#Sl-117 OSteli CHR# OSteLIT " “3 36120000 a K 
SIteLGC DIRECTS SIt#Sl473 36130000 7 |@ 
F SCe"i" THEN DSte7 KIT "FORWARD" ELSE 36140000 | | by 
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@ 
IF SCS"2" THEN DS#s7 LIT "REVERSES 36150000 
@ TOGCDSt=L 11 "COM; S1teLOC MULES SLIsST+75 36160000 
ee at E FN DSts ARY" SOS 1-0) 00 00 ee ee 
1 IF SGe"i" THEN OS$=5 LIT "ALPHA"; 36160000 
@ SIt=LOC SIZES TALLY!=83 ; 36190000 
3 —_ JB OPE SS 908 AE Nisa ce oe ee Oe I Se ce ete DOOD os cine alee cos 
4 BEGIN TALLYtsTALLY463; S]#=9]+, END ELSE 36210000 
@ |: JUMP GUT)3 36220000 
6 =TA 230000 ss 
2 TACDSt=LIT ‘ss VStsTL CHRS DSts6 LIT * WORDS"; 36240000 
@ | JUMP. QUT)3 36250000 
a Steere epegg ae 
"9 pDSts6 LIT " WITH "3 36270000 
er SItsa3 36280000 
4 Pane es Ae rr Ree SSE See oe" " THE GIN zSi+ : are sete PAC IOO0G ns ee ee 
BEGIN OSt=2LIT ™ "3 ee GQ Le END END ELSE 36300000 
@™ BEGIN OS3=sCHRS GO L3 ENDS 36310000 
rs Sto LIT EXPECTEO"S poh sh eee 
fe END; 36330000 
@ i BOOLEAN STREAM PROCEDURE TPEMRKCHECK(A)s VALUE A$ 36330100 
SERN APE IE: ch) | eee ee ee Oe ER a ete ae aN aed Rae eee ve F< Hs C0 > A 0 a Mn CA eee eS 
‘ LABEL 13 36330250 
@ Bi SItsLoc A} 36330300 
1 i Bid 
Re BEGIN ; 36330500 
OF SRSA; 36330550 
p seus sono cs ai ay CIN EN lee 3 oo ag oh ora Ns es ee ID AO ere sh, cin yg ae eer A 
f BEGIN 36330700 
@ |: S1tsS1413 : 36330750 
b7| zitett HE : 6330800 SS usta eas ie 
i BEGIN 36330900 
@» TALLY ?#13 36331000 
BC TPEMRKCHECK SSP ALLY3 6331100 ee 
8 ENDS _ 36331200 
@ | ENDS ; 36331300 
P NO ee NS Pee SO ce a eee eS fo 1°) = 
a ELSE 36331500 
@: BEGIN, 36331600 
5 saAs 33 
F L3 IF Scie THEN TPEMRKCHECK?IS9I ELSE 36331800 
eo BEGIN 36331900 
b : +13 6332000 its 
Gd se 36332050 
@ ENDS 36332100 
2 ENDS | 36332200 ee 
END3 36332300 ; 
@ | PROCEDURE IODANALYZ(KE Ys JUNK» 10D +MASK )3 36340000 
“VALUE KE Ys JUNKs LOD se MASKS ‘ e 36350000 _— 
INTEGER KEYS REAL JUNK» LOD» MASKS 36360000 
ew BEGIN 36370000 
; DEFINE BUFFSSJUNKBUFFERL OJ »sUUTBUFFER#S 36380000 
FORMAT BOTFC"BOT")»— : 36390000 
@; EQTFC"EOT" De _ 36400000. 
o qn Fo= D2itde és oa ; 440 
52 D2OF ("PARITY = D20")» 36420000 
@} NOERRFC"NO ERROR BITS"); 36430000 
CLEARCOUTBUFFER*WBUFF)3 | 36440000 it 
a) IF BLOMASKs (2712) THEN vy 36460000 
@ | : IF BLCWASK.¢2941]) THEN tite 36470000 
R ov S BE ClOo,f 22 RENO eos ‘A4R0000 
@ 
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e ig Re eee e 
WRITE ( JUNKBUFFERC*I>B0TF) 36440000 
® ELSE WRITE CJUNKBUFFERE *]sE0TF) 36500000 é 
sae reesei ts eee ELSE WRITE SEER * Ie FORE we RIO OD a ee ee 
ELSE 36520000 le 
@ IF BLCMASK.C2811)) THEN 36530000 2 
fe See aiine_t | ae Su0000 3 
ELSE 365950000 ‘ e 
6 ARITEC MUNKBUFFERC*#]» NOERRE)3 36560000 ; 
eS EY FBS ZO00Q 
BEGIN 36580000 _ . f e 
® TODANAC JUNK 14+10D,C22stJote1+1OD.C2tt11, 36590000 ; 
LODANACJUNK0ele1+1000(21$ 1) sDECMALCIODeLSF1)» 36610000 "e 
or BUFFS)3 36620000 ie 
a p 23 36630000 12 
DECMALCIOD1,.CSFI)> 36631000 . . Je 
@ |: BUFFS)3 36640000 ps 
aL ANA LUNA Oe pe tt TOD CAL e a eDECMAL (TOON. SFI)» 36650000 a 
BUFFS)3 36660000 "e 
Or LODANACJUNK 20+ 0202 0s BUFFS); 366070000 Kk 
WRITE COUTFI»WBUFF »QUTBUFFERL*J)3 36690000 . e 
@; ENDS : 36700000 i 
D HOANAL Y Rs TODANALYZ(CK 1 NK 6/idooon ss : Ea 
5 &CQDE STARTS HERE ve eeneve 36710100 1@ 
@ | SAVEDELA¥2SDELAY3 36710200 
P re GO ae a ee Oe et oO, 4 
wi 36710400 ? e 
@ COMMENT OON*T DELAY DURING RETRYS3 36710500 . pe 
pa RETRYING£= BLCMASKeliti))3 36711000 Je 
@ » ZCHECK FOR EQT AND BOT 36720000 ps 
pins LF BhCRef2si)) AND BLCReCe9t1)) THEN 3G 730000. RIAs 2 ine Ace, ee SMa TA eee eS 
BEGIN 36740000 3 
co] MOD3ICSt=STRUES 36750000 1 @ 
TF Refidt27 NEO O THEN 86780000 hele tie ene ee 
! BEGIN 36770000 a4 
® ReCe7tijt=43 36780000 1 @ 
IF RECCNOT BLCMASK,£2328))) AND Cb oP c AO OO OOK Lo ricoh oe ot ee A eS et ee 
20 THEN: 36800000 10 
Or IF NOT RETRYING THEN 36810000 38 
mia tb M tour oe BEGIN RiseR3 GQ xIT? END; 6820000 39 
Rel278118s03 36830000 ‘e 
rd] END3 36840000 a1 
EN 850 ese te 42 
% . 36851000 F 
@ + ABRIZABREV OR 1001 LSS 03 36852000 4@ 
IF NOT PGEts(10D GTR O ANO NOT RETRYING) THEN IODss 36860000, os 45 
ABSCICD)3 36870000 6 
@ FILL JUNKBUFFER(*) WITH 36880000 «| @) 
B Wa iT) Bate eed 49g 
| "SOOWRITE™» 36900000 4 
@} "SOQOSPACE", 36910000 . co @ 
" Df. n 9 = 5] 
"GOREWIND"; 36930000 : e 
@} IF RETRYING THEN 36950000 53 
‘ 8 N 6960000 _—s»T ety ee 54 
ai JUNK Ss JUNKBUFFERCKEY@LI3 : 36970000 | ar 
ade WRITECGUTFICOBLI)S WRITECQUTFIDS 36980000 ; 
ie BA RCOUITE TE DBL) eR YF eR. O UN ark AS90000 : : 5 
@ 
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37050000 


= N OBO 

| IF BLCI@0.02131)) OR MOO310S THEN TBINARY: 37230090 

ieee ee ae see oe 37230100 
| ae | : 10D .£SF 3 7230110. 

WO | 37230120 

WRITECOUTFICOBLIsOWF sEsIF BCL THEN "BCL" 37230130 

ie” SE_"INT")3 37230440 

ee  WRITECOUTFIGO8LI23 : 37230150 

a fo NOVEANOMRITECTRUE* E> PALSE® QUTR1#100, Cora, 37230160 

Ad eee foo TE COUTFIEDBE 2 weed Parke f) 


& 
IF Rel25t8)=MASK»(25%8] OR KEYS3 THEN " " ELSE 37000000 
@ "(BAD)")3 37010000 
‘ND O20000 
1 ELSE 37030000 
@? BEGIN 37040000 
3 ‘ 
4 RTYCOUNT# 203 
@ |: ERROR t= ERROR+13 ERRONS?SERRORS+13 37060000 
6 6 O OO 
7 IF REALCBLCR. (2518)) AND NOT BLOMASK,[2538]))#0 THEN 37060200 
@| BEGIN 37060300 
9 LOGB UFFER[L]t3 LOGBLUFFERL13& Of2%281)8 2£9%453:313 37060400 eee 
Le LOGHUFFERC2J%= TRANS; 37060500 
eo. LOGBUFFER(4]%s LUD 37060600 
na —— LCGBUFFER[3)%= KESULTS 37060700 
y LOGBUFFERL9Jt= 03 37060800 
@. LOGBUFFEREL0I33= 163 37060900 
5 KEL OGE@ TRUER BOO i 
p ENDS 37062000 
r ew IF IGNGRERRORS an BL (100, {2: '1)) THEN GO XIT3 37063000 
A OISEQNERROR : 0 
a BEGIN $140337064100 
@ WRITE COUTFILNOJ-NOISER)3 ee ot aane 
, WRITE COUT OBL I) 064300. 
ia GC XIT3 %140337064400 
@: ENDS 3140337064506 
; WRITECQUTIFI*ERRF » (JUNK tS YUNKBUFFERCKEY@1))olliS], 37070000 ah, 
: JUNK 3 37080000 
@ * HAUTE (OUTS SUE EeIUNK eCitS)s7)3 37090000 
27 NB 3 Ferereye 
bs WRITECCUTFILOBL Je BLAP* TRANS+10Dele2i1])3 37110000 
@» LODANALYZERS 37120000 
30 R OUT DB 30000 
; IF KEY=s1 THEN 37140000 
@ : IF PisTO01.CFF] NEQ EMPTY THEN 37150000 
s BEGIN 160000 
: GETPATTERNCP91)3 37170000 
@ | WRITECOUTFICOBLI*SEXPFeEtsIObeCSF)> 37160000 
* : THEN “BCL™ ELSE "INT")3 90000 
p WRITECOUTFICDBLI)3 37200000 
°F MOVEANONRITE (TRUE, E¥FALSEsOUTF 1+ DBUFF I) 37210000 
39 wR ef on 193 é HOOD 
" END ELSE 37230000 
@ i IF BLCMASK,0£C2731)) THEN 37230010 
2 B 230020 
3 "WRITE COUTF ICOBL I» TAPEWARKEXPF 9) 37230030 
 ) WRITECOUTFICOBLII3  ~ 37230040 
dae ope ENG UL SE set ie se oe ea RE 2-5 {| 1? 
ELSE 37230060 
@ IF KEYs2 THEN 3WRITE 37230070 
@ 
@ . 
e 
& 
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7 x Th 5 %. 
we 


ne A ee ee ee ee A 


EXO ELSE 37230180 
IF TPEMRKCHECKC1UD.CCFEJ) TheN 37230190 
ea ey I a) a ie Oe OOO OG eo 
ELSE : 37230210 
BEGIN 37230220 
ne Sree ree tak = 2: Be Vee es 
“JOD.(CCFI+REALCTSCFF) GTR O93 37230240 
GU WD 37230250 
NOs i i de-- ¢ h- 1-0 0 eee Bnd 
END: 37230270 
IF ABR THEN GO 1008s 37230280 
! 3 ES tr MG nee UO OOOO: ent ea SO 
WRITECCUTFICOBLI,UORIGF)53 37250000 
END} 37260000 
eae UF _MASK,£46:2] | S$ 3 THEN IODANALYZER ELSE Ate (0000 fe 8 ee! 
WRITECOUTEISORIGINALF )3 37280000 
1ao0S8 ; 37285000 
WRITE COUTBUFF ERC Se TOOF OR 8a ONON 
EDITCL + TODeCUTBUFFER( 3] 200, s+ UUNKe VUNK* O)3 37300000 
WRITECOUTFI,6e0UTBUFFER( *J 23 37310000 
WRITE COUTB ERE *JsRESF 2s od FOO OS ore, otsse oP i ee 
EDITCA*RESULT*#OUTBUFFERL 31°02 12 JUNK» JUNK oS O)3 37330000 
WRITECOUTFICOBL J» 6e0UTBUFFEREL*));3 37340000 
WRITECCUTFI»NOERRF ) 37360000 
ELSE 37370000 
se nee RB Ns i a hE ee ee ee ROO OO et em ete 
IF BLCEel4621)) THEN 37390000 
BEGIN 37400000 
GC SIx3 37420000 
ENO; 37430000 
Sea eS UU hc a i oe ee i OO rc neat ae te a Ss a 
IF -BLCR.€281)) THEN 37450000 
BEGIN 37460000 
ithe cate Sits I ee Re? i a ee OOO et 5 Se Os eet ht 
IF BL(R,C11%81)) THEN 37480000 
BEGIN 37490000 
s 
GO SIX; 37510000 
END3 37520000 
BLCR a THEN %READ 330000 
BEGIN 37540000 
IF BLOR.C13%1)) THEN 4BUT 37550000 
ok ee ee RN a pass ne A BT IOQ00 0 ee 
; : R,C27s1) sel; : 37570000 - 
If abba ef29t1)) THEN 37580000 
WARE COUT Dp BOTAEPD ELSE 0©=©6=6-UUULUUCUCUCCCCC 8 H90000 
WRITECOUTFIsBOTF 2S 37600000 
GO. SIX 37610000 
NO 620000  —— 
IF BLCR. rahi) THEN 37630000 
BEGIN... oe ; . . 37640000 
FB a SK es 3 ’ 37650 eee 
WRITE (UUTFI*EQTAEF) ELSE 37660000 
WRITECOUTFILEQTF)3 37670000 
R,Ca7t:ijsal3 37680000 > 
IF RUCBLCE2 AND BL03%367%))20 THEN 37690000 
: . S1x3 Coen’ 37700000 


rd] 
END ELSE 37720000 
@ BEGIN 37730000 
a BE Re Let) THEN ZBL ANK TAPE ss 7 40000.—~——“CssCSSCi 
1 BEGIN 37750000 
@ |: WRITECOUTFI»BLNKTPEF)3 37760000 
binasdtn is GO SIxs Di SE ie oe A a Se PP OOO Oe tit i AE ots 
‘ ENO} 37780000 
@ | IF BLCRof14#1)) THEN 37790000 
‘ 
7 IF BLCMASK.C2981]) THEN 37810000 
ee. WRITECOUTFI®EQTAEF) ELSE 37820000 
aes a ee tein, BPOIOONO Se ok 
po R,f27tijtei3 37840000 
er END 37850000 
N2 BS cw etcetera a a Bee ES _ 7800000 ~~ 
3 END ELSE 37870000 
@ BEGIN 378680000 
oe) fee peer £ a TE * ; aos ota SN RS Oh mE 
16 GO SIX} 37900000 
@” END3 37910000 
a ee ee BLCRal24:1]) T XR ee © 2°11) 01; 
9 BEGIN 37930000 
@” IF BLCEeC4121}) THEN 37940000 
p2 WRITECUUTF le I\VADUNF)5 37960000 
@? GO SIXx3 37970000 
g F Pe ins ln Oe tes 8s H . ——.---3 7980000... a ee ae ee 
SF IF BLCReC27%1)) THEN 37990000 
:@ Ps) BEGIN 38000000 
3 ' 7 as ee ee ee ; LO sb atari me onan nares 
en WRITECOUTFI>+LOFAEF) ELSE 38020000 
SOF WRITECQUTFISEOFF DS 38030000 
io oe i LT NOT BL CR el OB 1 1) TEN BRO NONOO se oe 
GO SIXxs 38050000 
@ ENDS 38060000 
__TAPEPARITY: ee ee ere 
IF ABSCKEY) LEG 2 THEN 38080000 
é RETRYTOGS=IRUES 38090000 
2 43k ee eset 
BEGIN 38110000 
@ IF RETRYTOGESNOT BLCMASKe{28811) THEN38120000 
W a | 0 @ Rae eae enna nee OS te) 
WRITE COUTF Il» D20AEF )3 38140000 
] END 38150000 
_38160000 
é WRITECOUTFI»8LNKTPERF )3 38170000 
@ GO SIX3 : 38180000 
‘Dé 900 elie os 
IF BL(E.L4121]) THEN 38200000 
@ IF BLCE.C4381)) THEN 38210000 
: REGIN 38220 
WRITECOUTF L®9WRILOCKF eUNL)S 38230000. 
@} GO SIX3. 38240000 
NO ELSE: B250000 
BEGIN 38260000 
@ |: WRITECOUTF I» INVADORE )3 38270000 
F GO SIX} 38280000 —_ 
SENDER ae ; a 38290000 
@ | IF RETRYTOG$*BL(£,(43!1]) THEN GO TAPEPARITYS 38300000 
a 
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2 
3 
4 
5 
6 
7 
8 
3 


SIX: 368320000 
IF RETRYING ANO NUT BLOMASK) THEN GO XIT3 38330000 
patentee ae See ee SB IMO... 2 
BEGIN 38350000 
IFCNOT BETRYING) OR BLOMASK) THEN 38360000 
Meee Pen en s, CORAM ERRORCIOD,WROCOUNTOS ~=—=CFC 40638400000 = 
END ELSE 38420000 
IF KEY=3 AND NOT RETRYING TREN 38420100 
Peeeencen 2 E a anaes eee SaaeEE er SUNSERD,  1I_ 17-210 E>) 6 I 6 een ege ee Te area 
WRITECOUTFICOBLJ»SPACERRsWROCOUNT)$ %140638420300 
IF RETRYING OR ABR THEN GO PAGECHECK3 38421000 
ee ; ~SB4 30000 
BEGIN 38440000 
WRITE CGUTFICOBLI)3 38441000 
Boa Reet See eet Ne LAR ER AR LTR TRY Ae LO od I O00 0. : 
IF MAKELOG THEN 38450100 
BEGIN 38450200 
plc Bes Beall SOA te Sets + Prey: Fo, o> 5 oc © 6 eee ee 
LOGBUFFER(C1O]:= NT2,CCF]3 38450400 
END: 386450500 
ABB iS 9 ee a ee ROO er 
BEGIN 38470000 
IF EtSNT2 CCF 180 TREN 38520000 
Sa a a a a OOO Ci a ee 
WRITECOUTFIsBAD) 385400006 
ELSE 3835000C 
Se A ee ts Sa nee 5 Beh SPR SOO Oe aise re ile nls 
R¢z9R}Z 38550200 
WRITECOUTFI»SUCCESSF ) 38560000 
ELSE 38370000 
IF £316 TREN 38580000 
eee TET Te TRE COV RE) UU 3B 590000. 
ELSE 38600000 
IF E332 THEN 38610000 
sic att aeae Sat eae jaa ABO ZOOOO i cece cone 
ELSE 38630000 
BEGIN 38640000 
KE is , P : : 
IF —s8 QR €#128 THEN 38660000 
WRITECOUTFI +000) 38670000 
erin SS Fata re Ré6sSOQ00n 
IF “COMPAREDATA THEN 38690000 
WRITE COUTFI»BAD) 38700000 
ELSE 38710000 eee 
BEGIN 38710100 
WRITECQOUTFI,000)3 38720000 
END; 36720200 
END} 3a730000 
END 38740000 —_ 
ELSE 38750000 
BEGIN ' 38760000 
IF NT@elCFIRO THEN 38770000 
BEGIN 38780000 
WRITE COUTFI»SUCCESSF )3 38780400 
A tsehs 38780200 | = 
END ELSE | 38780300 
WRITECOUTF Ts IRRECOVRE 23 38790000 
, oi & 38800000 
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e & 
WRITECGUTFICDBLI); 38802000 
@ END ELSE 38810000 ® 
ith Spee peer ee ee SAE CON, 9 os Se oe oe en sects os BB. 010 0 0 pe te ccs ng esa! 
WRITECOUTFICOBLJ)3 38831000 
@ IF BLOMASK.£2681J) AND 38840000 
WRITECOUTFI» STRANGE) ELSE 38860000 
& WRITE COUTFI»sNOTKY)3 38870000 
END} 38880000 
e@ PAGECHECK? 38885000 
no IF PAGE THEN WRITECOUTFICPAGE)) ELSE 38920000 
@ i WRITECCUTFICOBLJ»STAK)3 38930000 
ta od rent ay Gt co to ce ee See we eee a Ee es ae Sa Aas et Nc sae 
| IF MAKELUG THEN LINKITUP; 38930200 
@' DELAY S=SAVEDELAY3 38939300 
; ees bi Gatag Seo NY iene 2a ss ee Se ee a MONON 
ie Foe ie ae ie Ti i Ree i OI a tok tk te keen JB95000C 
eo” REAL PROCEDURE TAPEPARITYRETRY(NeOIUD)S VALUE ReOlLGDs 38960000 
Pe gcse EOE a aN te i ee Oak ho oh ete oo es 
9 BEGIN 38980000 
. ae 38980005 
; st SM a a a ee eee tO BOOT Oe en taka eco 
a 38980015 
@ » FUNCTIONALLY THE SAME AS THE MCP AGUTINE BY 38980020 
apts _-IHE SAME NAMEe. GIVES UP SomeWHaT EaSIFR 9 9B002H 7 
P HOWEVER? 38980030 
@* 38980035 
p7 sugioe SOG0 08 cee aoe 
ee Tis T2eT39ZeYeSIZEsLIMITS 39000000 
@e BOOLEAN OT 39010000 
Ee INT R , OZ0000 = 
3 OWN INTEGER MSK,KEY3 39021000 
@: OWN REAL RESULT, 160»SPACEMASK»SPACEIQUsMsweMODE NS 39030000 
p OWN R } Ae eI 
B4 DEFINE ERASETUDSSPACEMASK#3 39050000 
@ | OWN REAL BSIZE3 39060000 
i se DEF EINE: RU eR 8a tate a a IU OOO 8 7 
p LABEL 39100000 
@ » GIVEUP» 39110000 
; RPs | 39120000 es 
LP» 39130000 
eh LXx3 39140000 
5 DWN 2 eee et os OP OOOO — 
“3 LABEL XIT3 39160000 
@ BOOLEAN PROCEOURE DOTHEIONOWCR*®OT)$ VALUE R3 "39180000 
Cha eye ae OT OOOO noe 
BEGIN 39200000 
@ LABEL x13 39210000 
3 9220000 
aan Yteal ssiee L UNTIL 18 DO 39230000 
@ F BEGIN 39240000 
st IF _BLORef24#1]) THEN 39250000 
BEGIN 39260000 
@ FE IF OT THEN IF IODLeCIFLJZ1 THEN 39261000 
GETPATTERNC@EMPTY25)3 39262000, —s— 
55 : WHILE T4 GTR TIME CL) po 39270000 
@ | My ONHENCODS 39280000 
3 TEem TIME CA) oa | ae 39290000 
@ 
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ENDS 39300000 
STARTAPELO(CIODs/+RESULT)> 39310000 

ie i TEN MSSM SR RR CO? ee 0 
IF BOOLEANCTIMEC#2)) THEN STOPPER? a913 %140239312000 
TOF INISHCIGOsRESULT»*RLCOTISMSKL 2584088) sKEY)3 39320000 


im 3 sept eee eh TS 
IF BLORESULTeC29%1]) ANU BLCRESULTeC2%1)) THEN 39330000 
BEGIN 39340000 
ee area er ener eee emda 2 thc Un a OS ee We et eee Wo A ne eM neNeRS. KEY 61 ol 8 lc Rte eee eee ae 
IF BL(I100.024:13) THEN 39360000 
TRANS t#TRANS=187000182281) ELSE 39370000 
EB i I a a St ee 8 ot eee OI ge ees, ca ans ae 
GUTHETONGWESTRUESS 39390000 
MODE %=163 39400000 
I NNN ta ws tee Peet et OU ODO Os tics cane 
IF BLCORESULT.C11%113) THEN %MEM PAR 39420000 
BEGIN 39430000 
ceo a ah a Na a a a 2 GMA OOOO oh eas tere eee ee 
CLOTHE ITONOWSSTRUES 39450000 
GO xIQ; 39460000 
Se Ee ; BOS 10000... ee eel OO eon 
IF RESULT.»C13:2] NEQ 0 THEN Y2=183 39480000 
END ELSE 39490000 
Et a OO a a i OOOO Oe es 
ENGe 39310000 
RESULTe(l27%1]Ji=13s MCOCDEt=323 393520000 
ne ATOR OT eF AL SES END OF DOTHETONGws 2; es een eee 
DEFINE DOICNOWs 39540000 
BEGIN IF poe Nee THEN GO ey) ceNGet 39550000 
h R PRO FR Pf Re OT ODs 6 3__\ Re OL O00 9560000 co ocbats ica A 
REAL Re» 01003 BOULEAN. UT 392370000 
BEGIN 39580000 
———--_- LABEL _x193 INTEGER OMASK 3 39890900 
LIST BSI¢4ELCBSIZE)3 39591000 
DEFINE DOITONOWsIF PLGA aN heeled hy THEN 39600000 
PA BAcKis25 GO Xx Das” 39610000 20 
FORMAT aaseene OE ERASE ERROR DETECTED", 39620000 
/oX9e"@ARTER RETRY» LENGTH OF "» 39630000 


"PRECEDING RECORDE", [4o", NOT SAME ", 39640000 | 


WAS BEFORE (BAD)"#/9XxGe 39641000 
"*GARBDAGE WAS APPARENTLY LEFT IN "> 39641100 
ae "AREA ERASED"), 39641200 
SPACES("COMMENT? ",I4e" BACKSPACING OPERATIONS “s 39641300 
"WERE REQUIRED TO POSITION "> 39641400 
aa /oX1Oe"THE TAPE FUR CHECKING THE "» 39641500 —_ 
"LENGTH UF THE PRECEDING RECORD "> ~ 39641600 
4aX9e""BACKSPACING WAS DONE UNTIL THE "> 39641800 


een "NUMBER OF WORDS SPACED OVER EXCEEDED ", 39641900 


/9X10e"THE NUMBER OF WORDS WRITTEN OR *, 39642000 
"UNTIL EUFN)» 39642100 
PRECFCNCOMMENT! BEFORE RETRY : HK OF tis: 64 e 
"PRECEDING RECORDS"s lhe» REMEMBERED. "y 39642120 
oaete TEST FURTHER outs eas 
BEEeCEDING AECCHOE"S Tan" » SAME AS "y 39842406 
“BEFORe (GOUD)")3 39642500 
RANS& 1 ZFIRST RECURD SO REWIND 39650000 7 
BEGIN 39660000 
opt =3"42000v0000"e0r 006 3131534 39670000 
_DOTONOW? | ee 39680000 
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@ @ 
END ELSE 39690000 
@ BEGIN 39700000 ®@ 
sete Lie RIN OTRO THEN WRT PE COUTETEOR 95 SOP UNOS Ge cs ity dee 
1 MSsw3 39710000 
@» KEY $233 39720000 
: Bie TODS PREC TOG nn i 7 NOOO ee 
4 rsd} 39740000 
@ | CMASKS=MSK3 MSK&SEMPTY; 39741000 
PROOOO 225 dhe ci es 
; DOLONOWS 39760000 
e@ jf TRANS? sTRANS4+43 39770000 
: PI se OOO ee 
be END UNTIL COM$SRESULTeLCCE J=SPACEIOD.CCFIJ+#M) LSS YU 39790000 
ey OR BLCRESULT.C27!1))) AND ¥ GIR 43 39800000 
Nate lo ote aaa ae te NS£=TRANS"™23 _398j0000. 
13) LODP=SPACELOD&OL2224751)3 39820000. 
rd] i DOIONOWS 39830000 
ee Pera ws LWRITECOQUTFIeSPACES»y)s ROK 
os WRITECOUTFILDBLI 23 39831000 
er IF N20 THEN 39840000 
z RESULTe¢CCFI#1ON.LCFI) 39842000 
@ ELSE | , 39843000 
y oo BSI ZE NEG BSI ZES BRESULT CCF I=fop.fCF] THEN (39850000 
ee BEGIN - 39860000 
@ 2 WRITECOUTFI*ERASERRF sBSIZEL)3 39880000 
P eS Rs cee aati ae ee a OU) is ak a a ee OOOO ee oe 
P SPACEITBACKi =]; 39900000 
@ GO XIS3 39901000 
wi st cies el NS Bg ge aE te a iss ta lt oe SOW SOOO Det 5, 
pel WRITECOUTFICDBLJ*PRECF1sBSIZEL)3 39911000 
@ F: MSKSSOMASK3 39912000 
po ND3 9 oot 
' XIS: END GF SPACEITBACK3 : 39930000 
@ STREAM PROCEDURE ROTOLCZ*Y*SpSKoGMeD)3 VALUE ZeYseSeSKeGMs03 39930100 
z Slt2S3 Slt=sS1+Sks D153 39930300 
@ | ¥C16(DS!%32 CHR))3 39930400 
f ODStsAa CHR); —__ 39930500 
P SKCDStsLIT " "3. 39930600 
@» DItaDIeSK$ ST#SLOC GMF S[teS]+473 VStECHR; 39930700 
p FND mete 39930800 _ 
STREAM PROCEDURE ROTO2(ZsY*SeSKeFLoFKeL)3 39940000 
eh VALUE 29YsSsSKsFLeFKsD3 39930000 
: ve _ 
“3 Sy2sS3 SIesS14SKs OL eO; OLPF01 473 39970000 
@ YCL6C32COS8SCHRI stissie 23 olsepi=2)))3 39980000 
R(OSIsCHR sSt- DrteOlo; 39990000 ates! 
SItSLOC FLEE SLts5I[ 473 39991000 
eo FKCDSSSCHRS SIS=S1"13 DItsD172)3 39992000 
Sf EN a se a 000 ee 
: DEFINE | : %140440010000 
@ SPACEBACKSBEGIN. | . o %140440011000 
‘ : * BOOLFANCA ixSP ITTRACK(CR2OTODs OT : 0012000 
Pe GO GIVEUP3 %140440013000 
@: IF NTL52 THEN GO XIT %140440014000 
ig) —END#i 004 5.00000 
a FORMAT 40020000 
@ 8 : BACKFCCOMWERT AT THIS POINT. THE TAPE WAS "» 40040000 
Uae a SPA DINTO THE. ) Mo COLUMN AND OM: hte is : MOOSO0000 
é 
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oontowron — 


= 


X9e"THEN SPACED BACK TO BLOCK #sI5)>» 40060000 
MOVEOFC"INFORMATIUN MUVED TU "sA**" OF BUFFER "ye 40070000 
nee eter) (Eee Wet 29) tees Gc = Cin EV en? 0 2 ceed REC 0) < S01 1 0 a eee 
% 40090000 / 
MSKESKEYSSMODES SWt eds SKIEBSIZEtSNisT4t 30; 40091000 | 1@ 
ha ___.___BINITIALIZE "OWN" VARTABLES NOT INITIALIZED 40092000 iss 3 
ZELSEWHERE 40093000 4 
IF BLCReC2421]) THEN %READ ERROR 40100000 |@ 
BEGIN __ 40110000 ©. 6 
SPACEMASKS=REAL(BLCOIOD.C2132)x%3"1114") EV 40120000 : 
NOT BLC3"0123"))3 40130000 -|@ 
PACELOD@¢sOLODRILEt3BtLoeilessa7iiys = CC OOOO 9 
FCR Mi=1 STEP 1 UNTIL 2 nO 40150000 A 
BEGIN SPACEIODS=SPACELOLD&SPACEMASKL21 84632)3 40160000 1@ 
satya ee MOK Se A KEY Sepp saemctia sateen MON OG tet De ene Sane: Ls 
FOR Nt21 STEP 4 UNTIL 2 DO . 40180000 le 
BEGIN IOD?=9PACEIOD3 40190000 u 
Se a a a a a ee OOOO 8 ten i 
LP? BEGIN 40210000 e 
DOLONUN; 40220000 ie 
eee $ ae he re es ee ec ral 10 OO Olas cnr eae i DT 19 
IF NOT CBLC(R,C2981]) AND BLCR,C2813) AND 40240000 ‘9 
BLCRe(1214))) THEN GO LPS 40250000 | | ithe 
BEGIN 40270000 ia 
OT#=BL(3)3 40280000 23@ 
ap Beh SS ee Ot i PME Peg Tg OY yo a HOO aa ete pe ey ee a ee ct 24 
END 40300000 25 
ELSE | 40310000 | @ 
ose Z AF GINS MODESeeg@s 0 OOHO 2 
MSKE3163 40330000 2 
LUD sSULUCRSPACEMASK[2184382]3 40340000 1 @ 
we a a A a rc NN a Ss i te St es OOOO oe 6 oe See wn SE . 
DOTONOWS 40360000 - 
IF NOT BLCRESULT.£2831]) THEN GO XIT3 40370000 :.|@ 
_40380000. 8 
BEGIN 40390000 
. MSK35Q3 40400000 @ 
Fs: Zis ts SPACEMAS WOs2)]4 sss wo4z0000 36 
COLOD, CCF I+COIOD,Catioj=1)8 40430000 . le 
OlGOC 1822247) ECTCI3 40440000 a 
Soe DIONGW; MODE S$ w6a3 - 0450000 ss 
IF BLCRESULT.C28t1J) THEN 40460000 ‘e 
BEGIN 40470000 1 
: i cote ~eciye 42 
.. J0pseOTO03s DOTONOWS 40490000 , ‘ 
| LF NOT BLCRESULT.£28312) THEN GO XxIT#40500000 4@ 
SE SPACEMASKE2284602)3 = OS R0000———t Ms 
MSK8s163 40520000 ‘6 
DUTONUWS MODE#=1283 40530000 |W) 
iF a 4 5 4g 
. BEGIN TODtsO1UD@SPACEMASK(21343%2)3 40550000 4s 
ae MODE#s63 40560000 5 @ 
RPt ie ee 40570000 “ pote eee 4 
Zt=Q3 40580000 5 
DOIONOWS 40590000 @ 
IF BLCRESULT.»C28%1]) THEN i ULCHACK 1 9 (Sea a ee 
oo GO. TOOLK- ELSE GO XITS 40610000 : ba 
ENDS. a : 40620000 1{@ 
nD: 5 os 40630000 ce oes 5 
@ *e@ 
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6 y 6, vy * a t : ; 


oOo ~~ OD TO FF WH = 


eS ee 
a  - [i 


5 


£¢=ABSC TOD CCE I“RESULT.C CFI); 
IF TOOseC21%2]£0 THEN 


ee he er 
IF 100e¢f8810]) LSS ¢ THEN 
BEGIN 
Tha 6 
luptsO][O0s MCVEtsO3 
GO RPS 
ENDS 


IF BLCLO0.022:13) THEN 
ROTOWSsZ OLV GHsRESULT.s ee 


RESULT, £15%3]+ 


IF BLCIOD.Ce1%1)) THEN 0) 


ELSE 3”37"*00D.CCF]) ELSE 
ROTO2C4sZ OLV 64eRESULT CCF J@1> 


CRESULT,C1593]47).C45!23]> 
IF BLCIODs eee. THEN 0 
$ Qn Ws, 3 
-t45#3)>C10D eECF I); 
KEY3=333 MSKS=EMPTYS 


WRITECUUTFICOBL J»MUVEDFoIF 
BLCI1O0.022:13) THEN 


IF BLCIOU.£22'1)) THEN 
"FRONT" ELSE "BACK" )3 


~ *¢ 


O1ODL323:5]3 
DOIONGWS GO XIT; 


406040000 
40650000 


40670000 
heaves 


49700000 

40710000 
Of 20000 

40730000 

40740000 
ld 


40760000 _ 


40770000 


40790000. 


40800000 


40820000 


£1501 40830000 


se MOO O00 Geen beep 


OST Giese ten: seni ea pe ee 


40840000 
40850000 


40870000 
40880000 


40900000 
40910000 


AOBB0000 


peepee es a ES IN Se ON OOOO 8 ae 
END¢ 40930000 
MSKI=ZEMPTY3 40940000 
r PANS RANS . 2 al Val of a Reese eereemeeererianny are 
1oD1 eSPACETOUSSPACEMASK( 218401273 40960000 
FOR Wi] STEP t UNTIL N OO 40970000 
ee BEGIN DOTONOW SZ UU ROO 
IF BLORESULT.C27%1)2 THEN N8sgs 40990000 
END} 41000000 
al te el SK ¢ afi2y3 Si WAT OV OOO Oe nook i 
FCR NEs3 STEP 14 ak Ww DO DOTONOWS 41920000 
OTtSBL¢3)3 41030000 
= 
WRITE COUTFILDBLIJ)3 41050000 
WRITE COUTF lL» BACKEs TRANS+ABS(OLOD.L22°1)71993 41960000 
i WRITE COOTER SOL Ts: a i I a kt cst tr 
TOD&tsOlO03 mODE2*03 DOLUNOWS 41Q80000 
IF NOT BLCRESULT-€C28%1)) THEN GO XIT 41090000 
HP ee rte eaPer| O19 eae Ree ore Mitra eee aera ee A Sree 64100000 
MODE3=163 : 41410000 
END ELSE BEGIN WRITE PARITY 41120000 
s we 0000 we 30 @ ci. 
ERASE1ODt=( SPACE1OD+=010080L8: 383:101a7(221458338. 41440000 
poegeeen ere ee ee ee eee » 44450000 
We eRe yeniop,.f : OOOO 
WHILE TRUE DO 41170000 
BEGIN 41160000 
SPA BACK> 0000  _—sT _ 
IF CNS SN¢W4128) GTR LIMIT. OR: STOPPER NEQ@ O 44200000 
THEN. GO GIVEUPS © 44200100 
ODISERASEINDENT PE 3919]; 44210000 
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2 
3 
4 
5 
6 
7 
8 
9 


a a RE A A I HR SR A A 7 e 


KEYi=sa3 41220000 


FOR Jts0 STEP 512 UNTIL N DO 414230000 | e 
eae eet ee AD ei RP GIN TRANS SS TRANG Feo Fo NWO NO 
NOTONONS 44250000 ’ 
IODtsERASELODRYLSta784)3 41260000 . /@ 
EB RESUET COPE) TEN OOO - 3 
BEGIN 41280000 i 
IF NOT BLCRel27#1)) THEN LIMIT#2U+30008 41290000 |@ 
te ee Se I i a en ee AT SQ000 Gg a eas ee ee 6 
’ ENDS 41310000 ? 
ENDS 41320000 |@ 
K =23 OT3=8 j _ , AY RROOOO 
IOD*=010D> 41340000 ‘a 
COLONGW; 41350000 \@ 
eee tee TAT Wak Ps 0 tbs We); er es" C00 ge rs ra sa 12 
IF NOT BLCRESULT+f2821]) THEN 41370000 "3 
BEGIN 41380000 @ 
tee Net iete th ee is - m8 : _13a90000. 18 
SPACEBACK3 41400000 ‘9 
[OD?=SPACELUDROL 22478145 41410000 |@ 
sete arenes Ows spree eee St et MPO DOU. o.jpcei ae oe ee ‘8 
IF NOT (CBLCRESULT.C286:1)) OR CBLCOTOU,C2121]) 41430000 ‘e 
AND CRESULT.COFI*SPACEIOD. CCF] NEQ@ SIZE)))41440000 i 
BEGIN 41460000 i e 
MODEtS0QR(42te731)3 41470000 2 
se aaa Nil to ce a A seat 3 ; Be WPA BOO 6 oF tite ee Te tt en Ee Tn 24 
END3 41490000 “@ 
ENDS 41500000 7 
= Fs 5 See ae TRI Ted ee EN Nae eee, Mee Ue SE I fo cc, et we ee eee eee ee 2 
GIVEUP3 41520000 12 
MODE%5163 44530000 2s 
ct IN a a a a a et UO Oran. solv Sega ioeeg mieten. cua akh ee eer eet ee " 
XIT& TAPEPARITYRETRYSSMODES&ZCCTFII 41550000 1 
END; 41560000 iz 
SOIIGIUIUIUIIIIUIGIIIUIII IOI ISICON OO innings treet G1560100 39 
PROCEDURE LOOKAREAUDCKEY)3 VALUE KEYS INTEGER KEYS 41360200 is 
BEGIN 41500300 a @ 
Sa tg SP ee OU DO ee ee q 
COMMENT CHECKS TO SEE IF ANYTHING CAN BE DONE 41560310 
BEFORE GOING TO SLEEP To WAIT FOR I/O3 41560315 34 @ 
__INTEGER NEXTKEYSNEXTPsNEXTBS | 41560400 ; 
REAL NEXTIOD1: 41560450 d 
% 44560500 +|@ 
_ PssEMPTY3 | 41560600 ee 
IF KEY={ THEN j 44560700 
"TF PisIO04,CFF) NEQ EMPTY: THEN 41560800 4®@ 
GETPRATTERN(P?1)3 443960900 _— 5 
IF CODECAJ>+CIFL}#11 THEN 41561000 : 
BEGIN 41561100 |W 
LF _NEXTKEYss(NEXTIODI $=CODELCA+1))eLIFLJ=2 THEN 41561200 | 8 
IF NEXTPSSNEXTIOOL.CFF) NEQ EMPTY THEN 41561300 
BEGIN | 41561400 s1 @ 
LF NEXTBS#NEXTIOOL CSCEI=3"777" THEN 41561500 81 
NEXTBt=13 41561600 5 
IF NEXTB NE@ B AND (NEXTB NE@ 1 OR 41561700 s1@ 
PSEMPTY) THEN GETPATTERNCNEXTPs 44561800 ba 
~ NEXTBDS 44561900 oo 6 
. ENDS ’ 41562000 | J = @ 
END oe . <n ae . 41562100 Feud J 
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& 
ENDS 41562200 
r Bee fe tei ei RI II TOI II II IOI IIIS II III IDO III tonto tien ee 0% 44570000 
STREAM PROCEDURE EO MG Be Mek 22 ALU ? 5970100 ae 7 
1 BEGIN 41570150 
@. SItmLOC MS SI$=sS1+13 DIEsBs 41570200 
3 DSta2 L wom) 570 Qe fi 
‘ 7CIF SC3" " THEN JUMP OUT ELSE DS!SCHR)3 41970250 
@|;: DStsLIT "/"3 SIss_LOC FF SIt=SI+13 41570300 
6 os" f\ M 0 sD) SCHR): Q Q 
é DStei1 LIT "CSIMPL) gous 41570400 
@ | DStal IT ren; | 81570850 
ND oe Fare a ee Se OO a onli 
10 FO III III I IIIS III IG OOD IOI IM Oindine tot 4 1570600 
@ b PROCEDURE TAPEIOCIOOs,10D1)s VALUE I00,10015 REAL IODs,1OD13 41580000 
| a | 41590005 
@' COMMENT INTERPRETS [7/0 INSTRUCTIONSS 41590010 
fe LABEL REED» ws SPsBKSP*ERSEsRWNDXITS 41600000 
6” SWITCH LOS8=REEDs We SPs ERSE* RWNOSBKSPS 41610000 
a REAL MASKs RESULTS 41630000 
@ i REAL WCLsSPACELOCsWC23 ZKEEP THESE IN ORDERe see 41631900 
LITERAL #ADDRS 41650000 
Or BEGIN SIteLUc LITERALS DItsADDRS DSt=8 CHR} ENDS 416600000 
P MASK#e08100(2582515)3 41680000 
OF UNITtsCNT2SeUNITABLEL Ls 1 OUe Paro) aeter ds 41690000 
27 OsaTOn?e Th N PFOOooda 
is 5le5s4ctale 41710000 
er BUFFERS(CBt=C(IF NTIss1O01.0SCFIS3I"/77" THEN 1 41720000 
ig \ , 25tudosR 0000 ane 
IF 1ODeCSF1"1023 THEN 41740000 
® BEGIN 41750000 
R 0 AN N & A : =" O20 60000 isan 
10D. [SFII=NTI ELSE 41770000 
@ BEGIN 41780000 
N A ANQM) 3 90000 ee SD 
IF NOT TWXOUT THEN. — 41800000 
@ = WRITE COUTFI» INVTALLY 1» TANOM)3 41810000 
é x 820000 
ENDs 41830000 
@ |: END$3 41840000 
LOCOUNT3® [OCOUNT+13 41841000 = 
fs GO TO IOSEICDI,CIFLII3 © 41850000 
e % . 41860000 
REED3 : a 44870000 
GETPATTERNC@EMPTYsB) 3 41880000 
@ IF BLCIODe£22%1)) THEN IODe(CFI8=IU0.(CFI=1+ 41890000 
NT2tsIF BLCIOO.C23%1)) THEN 1OD+(SF) ELSE 41900000 
sf BUFFERS([B],{€SF 13 41910000 
@F IF 1OD0eC2t#2)80 THEN LITERALMOVECNOT FALSE* L0D+CCFI#100415F 19581931000 
STARTAPETOCABS( 100)» RE. 41920000 
LOOKAHEAD(1)93 ) 41920100 
@; LOFINISHCIOD»RESULT»MASKs1)3 41930000 
P yaQ0000 
ws PE ated ee 61950000 
@ - :  BWRITE TAPEMARK 41960000 
e 
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‘. 4 + y + z * 7s BS 5 TS 3 3 


MASK.C27%1)t503 41980000 
JONES ORS ene Te 373 +114 41990000 
aa is “OY 0 100) 0 ea eee cee a 
END ELSE es 42010000 
BEGIN "i 42020000 
Reeerens | ; —42030000 00 
IF NOT BLCTUDeL21%1)) THEN 42040000 
LITERALMOVECNOT FALSE *s(NT2¢S3UFFERS(B) gL CF I+ 42080000 
2 SFIS 42990000 00 
END3 42100000 
STARTAPEIOCABS( 100) sRESULT); 42110000 
: SReePPeOeN "2s Wes 812 5 1 2 OER UES NIE ete RT Ce 
TOFINISHC TOD» RESULT»MASKs 2)3 42120000 
GO XITs . 42130000 
; Sete OVE OO Octet re he ech Ay Matinee 4 
BKSPt 42150000 
TOD, CCF Jt sCOREADORCSPACELUC)3 42160000 
SI se et IB I O00 oo ® fk of St 
STARTAPEIOCABSC TOD) sRESULT IS 42170000 
LOOKAHEAD(2)3 42170100 
Sti ——— ——Helin2og 
TOF INISHCIOD»RESULT»MASK»s 393 42180000 
GO xIT3 . . 42190000 
* ‘Oi bY & keen ere cee ee es 
TRANS 8=TRANS@13 42210000 
RWND8 42220000 
LOOKAHEAD(2)3 . 42230100 
[OF INISH( IGD+RESULT»MASK» 10D1.CIFLI)5 42240000 
Sc ae ee eee et RO OOO OO eer 05 oa Benes 
BVCNROFRVARx(B*1) Jt =ewRDCOUNTS 42240200 
BVCNROFBVARx(B=1)+1)#sL UDF =I 005 42240300 
_..-._ BV [NROF PROAVER SRE SUS ga a AGN KOO el 
BVCNROFBVARx( Ba] )43)8S2xREALCSIZERR)+REALCCOMPAREDATA)3 42240500 
ENDS %140642250000 
BUI ICIS IIIS IIIS IUUIIU IO IO UND A kas ootn titi kena tend 2290 Oy ees 
PROCEDURE DETERMINECHANNEL TYPES 42250200 
BEGIN 42250300 
a a er eae EOE Seren ; 220 ace i Bas 
COMMENT DETERMINES IF MODEL TI] OR MODEL ITI 170 CONTROLS: 42250310 
42250320 
ee el 
BOOLEAN MOD33 42250500 
INTEGER ADeol; 42250600 
FORMAT 42e50610 
MOD3FAILC"UNIT FAILEO TO DETECT MOD 3 IOS", 42250620 
i "CON REWIND AT BOTTI"),  . . 42250630 
MOD3 ROC"UNIT DETECTED BOT ON REWIND & "» 42250640 = 
"THEREFORE MOD*3 1/0 Ssa/>» 42250650 
"MCP DIO NOT INDICATE MUD=3 I/U S ", 42250660 
"HAD BEEN SENSED");3 29670 
% 42250700 
ADtaCOREADORCRESULT)3 : 42250800 


DKBUSTNESSCCOREADORCMOD3STOS DBEMPTYECTFI)3 . 42250900 


STARTAPETO ( 3" 4200000000" EUNITSLIFUNITIL3128tISI*+RESULTIS %140542251000 
WAITCADs TOMASK ) 3 42251100 
IF_NOTCCMOD32S5BLCRESULT»C2#13)) EGY MOU3IODS) THEN 42251200, : 
BEGIN | 42251300 

IF MUD3TUS THEN 42251400 

= NATE COUTRECORLANORSFALL } oa | 42251500 
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@ 
ELSE 42251600 
@ WRITE COUTFICDBL3J*MOD3WEIRD)3 42251700 @ 
"ND | orn hh NO BOO ss. aes Go reek ee 
1 MOD3IOStsMO0310S GR MOD33 42251900 
@ » END} 42252000 
3 eH te tee ae te he ee ee a RRNA EATEN KEHAEEREHE RE ES 260000. sss 
4 PROCEDURE DETERMINEUNITSTATUSS3 42260100 
@| BEGIN 42260200 
. QMMEN PETE é DAN 60300 eee eee Seiten 
7 IF $0 REQUESTS THAT 7 BE ADE Race 42260400 
@: INTEGER ADe Ti 42260500 
id BOOLEAN RINGROD pe eB OO 
Ng REAL I0D»sRESULT3 42260520 
r LABEL AxL»sIa3 42260600 
12 FORMAT NORING("WRITE RING RQD = "»sA3)> 42260 _ 
p ABGRTC"TEST ON "sA3e" ABORTEDCNO WRITE RING)")3 42260750 
@ ' IF UNITSEMPTY THEN UNITHSUNITABLEC 120] 6 fCr]s 42260850 
ns NOW RWR *Kis Sere me ER ee 
he IF NOT CONF THEN 42261000 
e” RINGR@OD?*BLCHEADERE7 1) 42261100 
: sac ge cen ee NOOO en eee 
ie BEGIN #140542261250 
@ * NT1Li21%203 42261300 
: iia N NEO RE a NO At SE 5 6 17 Teper ena eee tne any Meee Te eeE 
e2 IF CNTLS=TESTARRAYCIJ)e(CFJ NEQ O AND NTZITSNT1 el 2786] 42261500 
@» LEG NUMBEROF TESTS THEN 42261600 
; q <. | —geeslsto oo 
P Sa ieheac enol FALSE) 42261620 
@ x ELSE It#141 42261630 
27 ; tel+i; Odea Fret an 
END; %140542261650 
@ F: IF RINGRQO THEN 42261700 
i 3 A  Z fy AOC oeklh se ee) 
i Tus 42261900 
rT STARTAPELOC3*SOOOOOOOUMQUNITSE A PUNITIC3IS 2885 ]» 42262000 
fs “4 ® hy fy ore bash Go repre toe tS ins Sete, eats) 
: 2=COREADDRCRESULT)> 42262200 
@ | WAITC AD» LOMASK)3 42262300 
‘ F_WRILOCK24BLCRESULTe(2633)) THEN 42262400 Eeeeee 
‘ BEGIN . 42262500 
T RELEASETHEUNITCUNIT)3 %140542262600 
: AXL 8 42262660 
WRITECCFILESNURINGS UNL )3 42262700 
@ IF AGt3SKIPSTOPGROKCTRUE» TRUE) =S4 THEN 42262900 
GO AXL ELSE 42263000 a 
IF NOWRT?#ADFL THEN ELSE. be 42263100 
@ + IF ADs2 THEN 42263200 
i WALTECOGTE [CPAGEIS AEORTO UNIO: 42263920...—~—~CO 
é GO TQ IF DUNETGG THEN ALLDONE ELSE RETURNS 3140542264000 
; eee ND : 26 () () 
a ; BEGIN. ! 42264100 
@r IF GETHEUNITCUNITSFALSE) 1 THEN se gees 42264300 
Bi be! : af AN 23 $ * wae, 
aur ico: 42264400 
@; GO 103 42264450 
is A.D : = 26 OO ankoee 
OF IF cETHEUNTT UNITS FALSE THEN 60 To IF ‘DONETOS THEN _ 42264650 
@ 
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. A n Sa aS KS Th 5 Ry > " 


END; 


422647090 


END; 42264750 e 
fe Ye ie ie kee eee ie ie iO iI III IOI i oi toi tiie te it oe ke 42 2 oes 

PROCEDURE INITIALIZEINTERPRETER? | 62264900 ' 
BEGIN 42265000 :|@ 

TREAM PROCEDURE BAJMSG(CBsMeF)s VALUE MeFS HOS : 

BEGIN 42266100 ‘ 
Sr:sLOC M3 S[t=#SI+13 D258} 42266150 |@ 

DSis omy 42266440. 6 

7CIF SCa™ " THEN JUMP OUT ELSE DSt=CHR)3 42266200 . ( 
DStsLIT "sms SteeLoc Fs SItsSi+13 42266250 |@ 

Pe N JUMP 9 HR SS Ah tl Oe ss eS Jeri 2, fotos on 8, - 

DS:=16 LIT "CSIMPL ) RUNNINGe"3 42266350 by 
END; 42266400 1@ 

OMP A t-4 Fes TERE YRS Nee Sensi IE EURO CONTR UTE SE Ie RRR Te AN eh ie a Ean 12 

ZINITIALIZE BUFFER TABLES 42330000 13 
MOVECNTL 3S ®HEADERL 6] 2 COMPARERUFF » BUFFERS(O})3 42340000 @ 

OR RrsnTie a OO 42350000 Se - 

CASE B OF 42360000 ‘i 
BEGIN 42370000 7/@ 

BUFFERS(O) FJ)3=03 ee eIBOOUM.. ~ oe e "8 

BUFFERSL12,CCFISsDQUFF 3 42390000 '9 
BUFFERSC21, (CF 1!=COREADDR(B2)413 42400000 od @ 

BUFFERS(3 FII=COREADDRCB3)+ 430000 r 

BUFFERS(C4],CCFJ8=CCREADDR(B4)413 42420000 Bi 
BUFFERS(5), CCF IaCOREADOR(BS +13 42430000 21 @ 

R 6 REANDDRC AS )+ Beet ee i Ey oe ee ol GE OOOO™. se es Pa oe ee le ray 
BUFFERS[7], CCF)! @CCREADDR(R/) +13 42450000 Je 

42560320 Bi 

NO : Beata EMS en Nal oe Muleat te I 

Ane scoreee nee: 42710000 if 
ZINITIALIZE PATTERN TABLES 42740000 5 @ 

N SSHEADER RO HEN po ee BO EGS 000s: hte ee a 

BEGIN 42750000 a 
FOR NT3S28NT1 STEP -30 UNTIL 1°00 READCCUDEFILE); 42755000 2 @ 

RANSFERIN 1,30sCO0E EsPATTERNSE#))3 oe ee ee oe APP OOD NO 40: cect hee ; 

PPssEMPTY3 42770000 
ENU; 42791000 11@ 

ZRES N aMEN , ONAR y Metre Oe ‘ei 

TRANSFERTNCHEADER( 31,30 CODEFILE*SEGDICTE*I)5 42810000 | 
®READ IN UNIT TABLE 42820000 3@ 

N SHE ADFR R O THEA 4a7?8320000 eens 7 

BEGIN 42840000 ‘i 
IF Care tes OR UNIT NE@ EMPTY THEN 42850000 «|@ 

. 42860000 42 

MOVEC 1» UNITSLO*UNITI» UNITABLELO»0] 4 42870000 : 
UNITABLEL1 202 S@UNITSE1*UNITIS: 42880000 4@ 

TAPETEST THEN 880100 Vie 4 

BEGIN 42880200 a6 
LOGBUFFERCLJ#= 1 8 104884032) & MyXC20843:5]3 42880300 |) 

NGB R t= 18 UNIT(3243%5 4338310 )¢ 71146(243 343 880400 ae 

LOGBUFFERE6]:= HEADER(28)5 42880500 i 
LOGBUFFERE?1t= HEADER(293i 42880600 | @ 

3 RIB =PRN3J ; 8806580 

TOCOUNT#= 03 42880700 : 
END3 42880800 @ 

NED BYO000 Pat Me ileal pA 

ELSE. 42900000 * e 
BEGIN | | 42910000 | @ 

RE AC ODER TL NITLOUNT TABLED O» J) 42920000 i 
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READ(CCODEFILE»NTL*UNITABLEL19*I)3 42930000 
ENDS 42940000 
Pp S g _ 
1 IF GETHEUNITCUNETABLEC1 +0) 6£CF ]+MAKETAPE) 42940200 
2 THEN 42940300 
3 R N 9 
4 CLOSECCODEFILE)# GO RETURNS 42940400 
> ENDO; 42940450 
6 NOT CON HEN 940460 
: BEGIN 42970500 
8 DETERMINEUNITSTATUS; : 42971000 
: DETERMINECHANNEL TYPES eee: 
to END} 42973000 
er ENDS 42980000 
i Be IN a gas ee a ee 
t BEGIN 42980350 
i IF HEADER(L20)80 THEN 42980200 
a taco et _MOVE (NUMBEROFTESTS+#1>MEADEALFIRSTESTI>TESTOIRECTORY) sg 980DSO 
ps ELSE 42980300 
e” TRANSFERINCNUMBEROF TESTS+12 30sCODEF ILEsTESTDIRECTORY)3 ; 42980350 
Ar a N 9 () a i () 01 @ EaEeeenhe ents See RSE 
8 BEGIN DETERMINEUNITSTATUS$ DETERMINECHANNELTYPES ENDS %140542980450 
@ fF. LOCK(TESTDIRECTORY( #13 %¥140542980500 
' NCKCT ARRAY[« ; a EOS APS RO RS Oe 
Fe ENDS %140542980900 
23 SAVERS STRANS&=Ss=AtaTaALLy:=Q3 42990000 
TABLEPRESENTS=SIZERRS=TUGGLE S=FALSES 430Q0000C Dre ee 
IF HEADER{L213&0 THEN KEADERC21 12 SMAXLEVELS@ 13 . 43001000 
Ps). DELAYS sHEADER(L22)3 43002000 
7 OOP NTIS eSTACK(Ol$sei3 QoOOO 
Pe IF BCL AND TRANSLATEBUFFER(COJ=0 THEN FILLXLATEBUFFERS “43020000 
2 FILLMODIFIERSCCOMPAREBUFF )3 43030000 
P GETSEGMENTCO)$3 31000. 
IF NOT SOP THEN ; 140543032000 
BEGIN %140543032100 


Se a eo sn ee te LO BO 
COMMENT SOP IS TRUE IF A CONFIDENCE PROGRAM 1S BEING RUN» AND 4140543032120 
IF AN OUTPUT PART UCCURED IN THE MAINTENANCE CONTROL %140543032130 


#140543032150 
FINDOUTPUTCHEADER(4 J «ECF J/HEADERCGI.CSFI)5— 4140543032200 
l t) 13H ANDER R 0 BCLISHEADER STR 05430 OO st 
END3 %140543032400 
at IF CONF THEN sree #140543032500 
42 5 NO HT Oo : 60 Foie Se Se) Siesta, mec cs eters 
: IF THXOUT THEN COCUUNTIE0 rtach 903s 0G 
ELSE PRINTCCARDS(CCSsCCCOUNT# FALSE )3 %140543032800 
6 HE A 405490393000 ~~ 
BEGIN %140543033100 
4 HOVE LAUT T SCO RUN 1s ONT TABU Reon %140543033200 
WRITE (GUTFICDBL 1s UCHANGEDS UNLDF | ¥140543033400. 
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FOR TESTINX&=TESTINX*+1 STEP 1 UNTIL 63 DO 44640000 
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At=NTL.CCFI3 44670000 
GO XIT3 2 & 44671000 
NQ 080000 _ 
GOTOTEST&=TRUE3 44690000 
XITt END OF GOTOTESTS; 44690100 
EI IIIUIIUIIIIUISIIIUIGIUIOIIIIDIUIIGIIIIINIGIOIUIIGIIIDIGIIIGGICIIIDIIOIUDIDIGI nei On ioinidk to tot ig 690200 
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j 7 : 9 
IF NT133 THEN JUNKBE=TALLY LEQ NT2 ELSE 44725000 “e 
@} IF NT1=24 THEN JUNKBt=TALLY GEQ@ NT2 ELSE 44726000 , 
ane ne ONE, 0 ol st ee ee 2 
END} 44728000 bs 
@ |. %4 s 44729000 @ 
———__ FUNKE teMOO3TOS 3 gg balp ot eta a 4" 
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ROTATE((NT11#8UFFERSIB})¢ CCF) ePATBUFFCOI>» 
BxCNT1l, CSFII*NT2ISINSTRUCTION, CFF JeNT2) 


ROTATECCNTIS SBUFFERS(B)) CCR JsPATBUFFCO], 
NT2SSINSTRUCTICN LFF IS BxXCNTIeLSFIIONT2)3 


NCA A a’ aly 


S6% 


GETPATTERNCEMPTY» Bt= INSTRUCTIONS (SCF) 


NT2s8X(NT3¢CLSFI)“NT1e INSTRUCTIUN LSS Gr0)3 
NEXTINSTRUCTION3 


Me ee), eee eee eee ee eee 
i IF JUNKBts(Ps2INSTRUCTIONSL FFI GEG MAXBUFFS) THEN 
BEGIN GETPATTERN(P8eP@MAaxBUrFsed)s NTLSSDBUFFS NTSt@PaTTERNSEPI3 


WRITECCFILEs 99 OUTBUFFERE #15 
P UNKS TAAL “A. 


44831900 
44832000 


MAB 32400... 
44832200 


44832300 


44832500 
pee: 

x 0.0 
44832800 
44832900 


IBBUFFERS(CB))efCFJ, 


44833100 
44833200 


44833400 
44833500 


4844 


iiceerthe serene eee END HNO 
ELSE 44833700 
NILSSCNT3ISSBUFFERSC FI) 6CCR IS 44833800 
CNT22=BUFFERS(BSs= #150144833950 
INSTRUCTIONS CSCFJIJ)D.CSFI)> %150144834000 
COMPARERRORCINSTRUCTIONSP)5 150144834100 
VERNA TRUE TONE 44834200 
SREG?=LOOPCOUNT$=03 1404448344600 
pene EUE TIEN? 44834500 
8 BO 
IF INSTRUCTION LSS 0 THEN 44834700 
BEGIN 44834800 
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DONE lee 44840000 
IF NOTCTWXOUT OR CONF): THEN WRITECOUTFICPAGE)) ELSE 44841000 
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; MAINTENANCE SEGMENTS ON 4OMS DISK CORRESPOND severe 
,4 EWE * ‘ RA K3 OUOO & il PERN err ec PLC irre TORO eer 
% ADDRESSING THOSE SEGMENTS I$ ACCUMPLI SHED qeoateae 
% BY ADCRESSING 40000 SEGS AND THEN SKIPPING 44981025 
____%____ 400@0 Tu AVOTO DUPLICATION, JUMPOFE CONTAINS =. s4g9B1030 
% THE LAST ADDRESS TO BE TESTED BEFORE SKIPPING, 44981035 
% 44981040 
ARM al ee GOOD cot 
% 44990005 
% WHEN THE MAINTENANCE SEG ADDRESS REACHES JUMPOFF >» 44990010 
% JACJUMPCOUNT) IS EXAMINED. IF IT IS GEQ O» ADDRESS 44990015 
% Ts CONTINUED AT THAT ADDRESS. JUMPOFF IS SET TO | 44990020 
z JACJUMPCOUNT4+1] ANDO JUMPCOUNT IS INCREMENTED BY 2, 44990025 
_ & Is JACJUMPCOUNT] IS LSS Os ADDRESSING IS TERMINATED 44990030 
% 44990035 
WRTOGs 45010000 
% 45010005 
% INDEX OF ACTIVE WRITE BUFFER ue 45010010 
x ie . 45010015 
SC» %150145011000 
% %150145011100 
z CONTROLS INTERROGATION OF TIMEC#2) %150145011200 
Q 
$SET OMITSOMTT OR NOT TUNEUP os ; : 150145011350 
NOWAI Te ~ : %150145011400 
% | %150145011500 p 
% COUNTS NR OF TIMES We OLON@7T HAVE TO WAIT FOR I/70 FIN» 45011600 
%. %150145011700 
() : BOQ As 
% Vo ee %150145011900 
x 1/0 TIME AT START OF CURRENT TEST. .. ea. ¥150445012006 
, : Pee: ; : : A ae m () oe 
ETM» $150}45012206 
ELAPSED TIME AT START OF CURRENT TEST %150145012300 
0 OO 
SPOP OMIT: PG ple ei att ay a Chatbtiwace oh Tee a %150145012404 


oT0Gs Re ee ee eee ae 2150145020000 


() VOQO 


Data Documents/inc. 


@ ee 6 
% INDEX OF ACTIVE READ BUFFER 45020010 
6 % 45020015 @ 
D A = 0¢ hs Bet i OL aha aie a 
' % %150145020200 , 
@ | % ADDRESSING INCREMENT %150145020300 71@ 
3 4 9020400 3 
4 OLOBUFFLTHs 150145020500 4 
e: % %150145020510 1@ 
6 “ 6 
7 % %150445020530 ? 
ee: ZONE» %150145020600 ; @ 
9 5 9 
4 % REL SEG IN ZONE WHERE ADDRESS RANGE STARTS %150145020800 i 
er x %150145020900 1@ 
be a 8 SS a a in EOP OO OT ONO one eo 12 
3 % %¥150145021100 3 
@ ZREL SEG IN ZONE WHERE ADORESS. RANGE STARTS %150145021200 @ 
rs Pee eee: “eer ee eee eee ee ne es re Oe TN eee ET ae eee Te eae Te Tee 5 
he ZONEOFFSETS %150145021400 "6 
e” z %150145021500 @ 
he % REL SEG IN ZONE CNURMAL SEGS=30 wORD I/o=S) 2150145021600 = eee He 
: TOI III III III IIIS UI IOUS IG Ong Rica se 50 90000 4 
@ » BOOLEAN 45040000 21 @ 
se cat ec) rata clol WIRY Bi EG cate el a he es POOR DOO: eat See 21 
P % 45050005 a 
@» % WRT IS TRUE DURING A WRITE TEST 45050010 231@ 
es te kwaly aA ai Oh a ee es se oe os OO Beet ae. Ba DR oak neers i 
SHIF» 45060000 
@» % 45060004 1 @ 
by es R s TEST 0 Bs ale es a Ree ea 2 
Pe % 45060010 fe 
@': FORTYMILL» 45070000 | 21@ 
% POO 0 Sie i el ee es be 
% 40 MS, DISK 45070010 i. 
@ % 45070015 nf s1@ 
SO sachin NET ra tr Sa Fe ht es SRO RON OU 2a, i ef ca ae ee en eee ee ee ee 
% 45060005 
@ % MAINTENANCE SEG TEST 45080010, @ 
REV» 45090000 le 
O- % , 45090005 i 
—_& ___REVERSF ADDRESSING 0 NOT 
; % 45090015 i 
@ LONG» 45100000 hed 
% | De eee 2 
} % TEST = 2 OR TEST = 12 %150145100010 . ae i 
@ | x : 45100015 4@ 
Be INR nyc 8 a eg EPO 00 fone 4 
. % %150145100200 ‘e 
@ | % TEST = 12 %150145100300 7 
5 4 9 ne ; 00 ne ae 5 
SWITCHER» . #5110000 ai 
di % - ae : 45110005 . bl @ 
2 USED DURING ST_.NR 2 TO INDICATE READ OR WR O010 54 
% PASS 45110015 5 
@: % 45110020 @ 
KWIK . Z15 0.0 Baa ae eee ee i 
% oe a. se #150145110200 ‘le 
@ |: % TEST 13 OR 14 %150145110300 
@ 


Data Documents/Inc. 


%150145110500 
%150145110600 


150145110800 
%150145110900 
10 
150145111100 
4150145111200 


45120005 
45120010 
45170000 


45160005 
45180010 


—A45120000 _ 


he wie A Oe a ee OOS tee ea 


a i ete OO es eee 


—M5180015 2 


45180020 
45190000 


—A5190005 


45190010 


@ 

RO» 
rd % 

x REA PAR 0 ON 

% a 
@ NODATAs 

een teat 3 e 
% NO DATA DISPLAYED ON ERROR 

® % 

ADDRESSINGCOMPLETES 

i % . 
td] % INDICATES NO MORE ADORESSES TO TEST 
LHCKdNSEANSNT NEN K RS SEEKER ALRREN ERO CRU AN GavE LEONG A OOnnEoEaN CANON ERS baa eaSL60000 

. aD SAVE ARRAY 

UD» 4 

% 
@ | % IOBLB] CONTAINS THE I/G DESC FOR BUFFER B 

ae * Ss mei 4 i " 

% 

er LOCATIONC@33)> 
sees Bs ash bs te 

x LOCATION(BIs 

6 bo 4 : 


i E 
feti1)] 1 
{3#9]=0 


(FF }=0 
(CF J=COREADDRESS OF RESCH) 


45190015 


45190025 — 


45190030 


45190040 
45190045 


% 

& 
————-—-4.__________(12isletun OF DISK CONTROL BEING USED 46190035 0. 

% 

% 


Steck oh a Te a POON BS Oe cc ee 
SZL0%111> %150145200000 
@- % 45200005 
} ———--2_____SZ_CONTAINS INFORMATION ABOUT The ZONES 5200010 7 
g 45200015 
@ % S200 }sNUMBER OF SEGS IN ZONE 1 45200020 
& MBER OF SEGS ONE ¢ [ae 
% $712 }=NUNBER OF SEGS In ZONE 3 45200030 
@ % SZL3]=FIRST SEG IN ZONE 1 45200035 | 
¥ a § = ST_SE ZONE 5200040 
p % SZUS]=FIRST SEG IN ZONE 3 45200045 
@ >: % SZE6]"LAST SEG IN ZONE 1 %150145200050 
(eR rE ee ; : = ; : Q 0100 
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e@ REAL PROCEDURE MADUR(FILEADOR* KLUGE )3 VALUE FILEADDRs KLUGE: 45350000 
Ronen iene INTEGER PILEADDRS BOOLEAN KLUGES 5 IBOOOD 
BEGIN 45370000 
e 45370605 
te a IN a a a re se OO Oe eect ee oe 
45370015 
@ = RETURNS THE MAINTENANCE SEGMENT CORRESPONDING 45370020 
; TO THE NORM SE NT FILE M SFG" R 4537 beac Mat 
IS RETURNED IN ALPHA FORMAT. IF FILEADDR LSS Op» 45370030 
e ADDRESS RETURNED IS A NORMAL SEGMENT CEITHER 45370035 
FIRST OR LAST IN ZONE* DEPENQING ON VALUES OF REV). 4537/0049 = 
IF KLUONGE 13 TRUE*® THE ADDRESS RETURNED IS. CORRECT 45370045 
@ » FOR INSERTION INTO AN M2 SEGMENT DATA PATTERNS 45370050 
REAL JUNK1s INTEGER JUNK23 45380000 
@ IF BOOLEANCFILEADDR«(131)) THEN 45390000 
= MADDR$ =100x(CFILEADDKS =ABS(EILEANOR)) DIV 100)+ 45400000 ee 
SZC ZNECFILEADDR 431 ; #150145410000 
@ eELSE aoe a | 45430000. 
BEGIN : Lian 440000 
: IF FORTYMILL THEN 45441000 
@| FILEADUR? SF ILEADDR=40000% 45441100 
; ¢ ILEADUK DIV 10000 MOD 0U)+4) DIV 8)3 45441200 oe : 
‘ LF KLUGE THEN. ~. 45450000 
@ | FILEADORI SF LUE ABOR NOD wwoRdods. —— 45460000 
E E. FILE AD: ih Ue ee : 
@ 
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Ss ys 3 
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IF KLUGE THEN 45340000 
JUNKLSSIUNKISDECMALCENTIERCOCTAL( UUNK1,012312)]) 45550000 e 
oP ss nt i ; H —A5560000 
WUNK2 22 JUNK1e012%6)+10"5xREALCWRT DS 45570000 
JUNKY SS JUNK RIUNK2(1234286)3 45580000 |@ 
BS sal oot BS AR Toc Ln. O145590000 : 2 
MADURS=JUNK13 45620000 - 
ENDS 45630000 @ 
ND 3. a ra Se Se 5 Na al iS Ss Sn ee NE 
TOI II OIE IO III TOI III INI IOOIID Gt oobi ei 5 650000 : 
DEFINE MAINTADDRCA)=MADDR( As FALSE) #3 %150145660000 @ 
BORIS III ISIOIGI II IUIIDISI GIGI GIGI IOI III III III III III III IG I anide tire 45680000 Nel 
STREAM PROCEDURE M2PATTERNCS*DEST*ADDRESS)3 VALUE aDDRESS3 45690000 |@ 
aN a a a ed ts eB PO OOO os Bde tan eh ee Ee + 
LOCAL SAVESI3 _ * 45710000 ‘le 
45720000 ie 


DItsDESTS SIssS5 
SIs2S1+6s SAVESIt=S1} 


45730000 


45740000 i 
SI!sL CC ADDRESS} 45750000 @ 
- ® Sis n 18 
SIt=eSaAVEsy3 45770000 1@ 
pS3s9 wOS; - 45780000 a 
DD a ee ik GR NN Ea a a tS eg OI ds oa cond es yt a rl nites ee, : 2] 
Fo III III TOI III II III IOI IOI I IID I IOI III IO ttt idintet i 45800000 - 
PROCEDURE FINOGOCOM2PATTERNCADUR)S VALLE ACURS INTEGER ADDR; 45810000 21@ 
a RE TA seer eee PPROTOMER) Cs "S010 cc CapROe Oe ane eee Tatar OR le ee ee 24 
INTEGER Te SUsEU, EAs. 45830000 @ 
REAL 1OD»sRESULTsLOCATIONS 45840000 i 
LABEL XE FA BOO eee a P 
45860000 1@ 
FILL GUTBUFFERC*] WITH 45870000 : 
De ee. a u O93» B11 L101 ok see ea a ee 
"99990 1) | 45890000 ; 3 
" 0000000">» © 45900000 | @ 
Eee ‘ "» ihe BSI YOO0 Oe a ce top te as 3 
"O 1,203", 45920000 3 
"O 1.2030" 45930000 2 @ 
" i ts» 9 36) 
"O 1,2f3¢%» 45950000 57 
NEEXXCCOR™> 45960000 hd 
Bice ee OG Pes ta ee a ee A OOOO Sn. 1 = 
"EEXXCCAR">» 45980000 40 
"EEXxCC@@"; 45990000 a1 
Se 1OD*=COREADDR( JUNKBUFFERLO] )a1208438310)& 46000000) 42 
SL ICL Beast slal(easa7 si yeTINucss4arsy3 46010000 4 
LOCATIONt#=(1#®COREADDRC RESULT) QUNITC12°4296]8 46020000 4@ 
1474113 46930000) 49 
EUS=ADDR DIV 10000003 46040000 ‘6 
SUt=(CADUR DIV 10000) MOD 100 ) DIV 43 %150146050000 0 
AtZ(ADDK t= 1000000KEU+40000xSU4SZLZNECADDR) +3]) #400003 46060000 
WHILE TRUE DO 46070000 4s 
BEGIN | 46080000 | @ 
JUNKBUFFERCOJ3=DECIMALC ADDR) #. 46990000 51 
M2PATTERN( OUTBUFFER»OUTBUFFER»sMADOR( ADDR» TRUE) )$ 46100000 5 
IOREQUEST(™C(RESULT #2100) 8002584028) »RESULT» 46110000 s1@ 
_OCATION)3 46120000 | - se 
WAITC 1s LOMASH D3 46130000 a 69 
IF RESULT.C25%8]%0 THEN 46140000 | @ 
_BEGIN | ae a %150146141000 | ; y 
@ eo 
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a eine nt ee rtineey herent enenn syne we nenrimneranenenaes 


@ a 
IF NOT BIGCUMPAREC 12» CUREADDR(OUTBUFFER)>» 150146150000 
@ COREADDR( JUNKBUFFERL1])2 THEN %150146160000 @ 
1 = tos MOVE C12*JUNKBUFFER( 1]»SHIFTBUFF)3 %150146160200——-- — 
@. GO XIT3 %150146160300 
3 oa ie NES ce ce eat ary ne ree erent 2 AE POT A BORO inoct on 
‘ IF CHRERR < 3 ANU FSTERR < 4 THEN %150146170000 
@: BEGIN 46180000 
6 NKB A 0000 pie 
y CHARACTERMOVE (2sCOREADOR(SHIF TSUFF(2))86LCTF I> 46190400 
ee. COREADOR(SZEZNECADOR)+9))86CCTIFI)23 150146190200 | 
a nee : eS oe A A ee BBC OOON Oe . 
i END3 46210000 
er ENDS %150146211000 
12) a " , & . 
pn I F_ADORISADDR¢100 GEQ ca They ga 220000  ~=—s—s—ses—‘“‘ 
} BEGIN 46230000 
e" MOVE( L12*QUTBUFFER» SHIFT BUFF )3 46240000 
ik) e 
a ease eT cect al ad oe OOOO aad te tire Sty, 
Ne END3 46260000 
eo” ENDS 46270000 
be oe EET PS Be ease Se EN eel ihe Be ee Ate Se ett ee 
9 BANGHERESERANSRENE REN EREN EEE NRE RNEE ERE R EMER EN EN EM ERE ONES EERE Ree eae ESHER G2I00ID 
or PROCEDURE COUNTUPCI)SINTEGER Ii %150146300000 
: ___ dS 2x > _M s aN de ac as ne eae 
p2 FRI II II IGI III IGIISIIIGI ISI IOI III II IO IO iii 46320000 
2 PROCEDURE ERRORANALYSISC(CBUFFERNR)S VALUE BUFFERNR3 INTEGER 46330000 
BUFFERNRSFCRWARDS RiS0i46330010. =i is 


BOI UII III INICIO SIO ISIS ISISIOII I ior i iii toot iii iti 6.330100 
BONLEAN STREAM PROCEDURE CMPCAsBsSZ0I1V64sSZ)3 VALUE SZDIV64sS23 150146330450 


pe LABEL ERRoXITS %150146330250 
SItsAs O28 =B3 4150146330300 

RO SZOIV64(146¢ 2C NEQ OC THEN JUMP OUT 2 TO RR 5 0146330350 
SZCIF 8 SC NEQ@ OC THEN JUMP QUT TG ERR} %150146330400 
GO XIT3 %150146330450 

RR? A = PiatlaA OG; AD Sf sla ay ph ee 

XIT&: ENDS 4150146330550 
FI OI IO II IIIGIOI OIG IOI IGS IOIDIDIGIGIOINIDIGIGIOIIGIOIIGI I ISI III IOIOID Ginn 46340000 

QEFINE COMPARECA)SCMP(DISKLAs1]s»COMPAREBLFFLA@™201 1)» 2150146340300 = 
BUFFLTH DIV 64s0UFFLTH) #3. %150146340200 
JUG OIEISIII ISI III OIIGIGOIOIIIDIOGISIGIIDIGOSIOIIOD Gr IOI iii tioniiet nt 16463950000 

COMMENT I0 COME N TWO VERSIONS (NO ADD ONAL CHARGE ONE 6350005 one 
FOR REGULAR USE ANO ONE FUR DEBUGGING. THE PARAMETER 46350010 
iecea DETERMINES THE OPERATION TO BE PERFORMED ON 46350015 
__._ BUFFER NUMBER "BUFFERNR* AS FOLLOWS? 46350020 — 2.2, 
46350025 
CODEs1 READ a 46350030 
ODEs RIT 63500 

CODE #3 CHECK READ 46350040 


CODE=4 CHECK WRITE 46350045 

6350050 
46350055 
46350060 


SSET ATR ET TEE OR DEBUG 7 | 46351000 
PROCEOURE 10(CODE/BUFFERNR)# VALUE CODE »BUFFERNRS | 46360000 

RX COO — Fe UOO0 

BECTN : 2 ome 46380000 
LABEL REEDsM»RCoNCHXIT? FAKEOUT/LOGITS. | 46390000 


ED a W's) oe ; a ey AGOOHBOD 


THE DEBUGGING VERSION PERFORMES NO DISK 1/0, RATHER> 
iT FILLS MESSAGEL#) 1 MITH MESSAGES, SPECIFYING THE 
N : DISK ADORESS 3 


® 
bd RAK 
7 
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@ @ 
INTEGER JUNK» BNUMSF AS 46410000 
@ DEFINE COUNTUPERRORS=S8EGIN ERROR? sSERROK+1L3 46420000 @ 
poeta ahhh RSLEFRRURS«L? _uzOnog 

ENDS 46440000 : ; 

@ STREAM PROCEDURE SHIFTIT(N®AsBR)$ VALUE NoRJ 46440100 | 2|@ 
: 3 
LOCAL NNPRR3 46440300 ‘ 

@ SItsiOc Ns Sit=S1+6s VItsLUC Nj DIssD1+73 DSI=CHR: 46440400 |@ 
R 46440500 ere ened 6 
SIisa$ Per Sar eer’ CHR} OStea2 areey: OSt=N CHR 46440600 | 7 

@ SIteAs RR(DS8=32 CHRS 0S1232 CHR)# OSt=R CHRIS 46440700 |@ 
i a RN I a a ROBO ae ee, acne : 
DEF INE %150146440900 "9 

®@ SHIFTCASB)SSHIFTITCNTLEZENTIERCCFAtI4F A DIV 3) 46441000 1|@ 
i, Dae eee ee Eee LSE ALOO " 
ENTIERCOXC(BUFFLTH=1)*NT1) 43 %150146441200 m3 

@ % | 46450000 @ 
NUMER BUFF ERR hen ee 15 
GO SLCCDE); 46470000 16 

e REED! 46480000 7 @ 
_. EF FIL FADDRESDACBNUM»2)1S5S 0 THEN eee LI oH 2102 ¢ 16 gaa ace ee ee eee ee bs 
BEGIN COUNTURCRDTOG)4 GO XITs ENDS : 46500000 | "9 

@: IOCDUNT?® JOCOUNT#13. oar | 46501000 : od @ 
erie Oak _IF WRT THEN CLEARCOISKCBUFFERNRs OJsBUFFLTHe1) ELSE 46510000 7 
IF MAINT THEN M2PATTERN( SHIFT BUFF »CUMPAREBUFFLBNUM> 46520000 23 

@» L]»MADORC(FILEADOR» TRUE)) ELSE 46530000 3 @ 
ee MOVE (BUFF L THe COMPAREBUFELENUMe 11s O1SK(BUFFERNR91))3  _4esuon00.s 24 
ps Fe ee er Ne USER ER HARC EEDE AUER) 46550000 2 

Or: IF DELAY > 0 THEN | 190146350050 2 @ 

y « - ; 5 : 

WERNODEE NYS NT1)3 46550200 2a 

@—: TORE QUESTC@(RESLAUFFERNR J ts 0DLBYFFERNR] )ROL25 24038), 46560000 4 @ 
RESCBUFFERNRJ»LUCATJON{AUPFERNA))} 46570000. x 
IF SHIF THEN 46580000 a1 

@r SHIFT CSHIFTQUFF  COMPAREUFFLNUM»23)4 150146590000 | @ 

AK UA NU 600000 dp tl S La 

COMPAREBUFF LBNUMs 1) ?8UEC [MAL CF ILEADDADS 46610000 , 

@ IF LONGR THEN MOVEC899s COMPAREBUFFLBNUM# 1 Js 4150146610100 3@ 
‘ OMPARE BUFF EL BNUMs ; 0146610200 36 
IF KWIK THEN % 150146610300 37 

OF (FOR NTit#1 STEP 1 UNTIL 5 DO 7 46610400 @ 
: OMR AREBUFFLBNUMs 14+30xNT1) #2DECMAL(FILEADDRENT | 46610500 ss 
COUNTUPCROTOG)3 46620000 

e GO XIT3 46630000 «|@ 

ows | | 46640 pe! 

IF FILEADDRI=DALGUFFERNA»O) LSS 0 THEN 46650000 ; | 4 

@ | BEGIN COUNTUPCWRTOG)3 GG XITS. ENDS 46660000 | 4 @ 
OCOUNTS® JOCOUNT#}3 2 46664000 ss ‘ 

; IF SHIF THEN 46670000 : 
=) SHIF TCSMIF TBUFF »UI SKLBUFFERNKs21)3 %150146680000 . ar 
DISKLBUFFERNR* OJ 82=O0I1SKCBUFFERNRs LI3= ADDR)} 6690000 ene a8 
. LONGR THEN wOVEC900+D15KCBUFFERNR, 01 DISKCBUFFEANAs 7) 4669001 49 
. - | ~ ¥450146690020 co @ 

ek K THEN re ; %$150146690030 _ 5} 
‘i FOR Nlis=i STEP 1 UNTIL 5 DO 46690040 5 
er DISKCBUFFERNR»14+30XNT1 I$ =DECMALCFILEADDRENTLDS 46690050 51 @ 
F DELAY > O THEN %150146690070_ __ . 5 
IF CNTLIESCTIMECL)=10FT) DIV 60) LSS. DELAY THEN 86690400 ; = : i 
@- WHENNCDELAY@NTIDA ~ | 46690200 .* «| @ 
ef LOREQUEST(+(RESEBUFFERNRISIOD(BUFFERNRI)&0 9 46700000 __ es ee ee 59 
@ 
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ae eee. 
y SS 


7 7 7 ee ee 


5 BS 


41 


oo ~ wm FF wr = 


(2514028)sRESLBUFFERNR]>LOCATIONCBUFFERNRI)3 46710000 
COUNTUPCWRTUG)3 46720000 
__ es = 27 a+ ‘ wah, fen oe, 
GO XIT3 46740000 
RC$ 46750000 
AUNRisDALANtiMs 3 REN A47ACNNOO 
GO XIT3 46770000 
SEGCUUATS® SEGCUUNT#+LS 46771000 
IF REAL CBLCRES(CBUFFERNRI) AND BILCTOMASK))#0 THEN B150;,467H0000 sss 
BEGIN %150146785000 
JUNK t=LOCATIONCBUFFERNR 6 (CF ISWALTC JUNK» TOMASK) 5 46790000 
$5 ‘ 30M OR NO " %1501446795000 Bree hee 
. END ELSE NOWAIT?=NOWAIT#13 %150146795010 
$SPOP OMIT %150146795020 
SSET OMITS=OMIT OR TUNEUP 9 plcnice teste gNuaets Mian. heres as! 
ENDS %150146795040 
SPOP OMIT %150146795050 
en a IF Y_> Tt= : Me ee 
IF RESCBUFFERNR1,025!8) NE@ 0 THEN 46800000 
BEGIN 46810000 
—_— LOGBUFFERC1)t= LOGBUFFERC1I& Ol2s2t1je 2091451333 4eslozc0 © 
LOGBUFFER[2]%= IUCOUNT; 46810300 
sinensis chpiniewhmaan ncn g : 4 [ petals gta sreecee’iitsGerhcmget iia 
REAL CMAINT)L43847291) @ 46810500 
REALCTEST#1)L42%4721]3 46810600 
Wo GBRUFFEREGIt= JUDCBUFFERNR]# Cg COZ perce 
LOGBUFFER(5)?= RES(BUFFERNRJS 46810800 
IF IGNORERROBS GR NOISEONERROR THEN 4140346820000 
COUNTUPERRORS: 5140346820200 = 
IF NOISEONERROR THEN WRITENUISES %140346820300 
Loenananeemnanamanenenint 3 “A SAE nle He LE RE LN A 
ENO ELSE %140346820400 
. BEGIN 46830000 
oo eR THEN ——————C BROOD 
COMPAREDATA?=COMPARECBUFFERNR )3 46840000 
ERRORANALYSIS(BUFFERNK)3 46850000 
sa ee ater Srl Se AON Ota etre Le 
LINKITUP3 | 46861000 
END ELSE 46870000. 
gsi LA GEN ote ten a 5 Pe ee et ee te te ROR OOU Ot nl 
IF WRT UR MAINT THEN 46890000 
IF COMPAREDATAS=COQMPARE(BUFFERNR ) THEN 46900000 
= rif f | OOO St 
BEGIN > 2. | 46920000 
JUNKBISBIGCOMPARE( BUFFLTHsCOREADOR(DISK- %150146930000 
CORE ADUR (COMP AREBUFFLBNUMs11))3 %1501469 30200 - 
IF CHRERR LSS 3 THEN %150146930300 
FINDGQUDM2PATTERNCFILEADOR)3 46950000 
M2PATTERN(SHIF TBUFF sCOMPAREBUFF 46960000 
IF COMPAREDATAI=COMPARECELFFERNR) 46980000 
THEN GU FAKEOUTS 46990000 
ND GQ FAKE O00Nn000 
END ELSE : 47010000 
FAKEQUTt | a 47020000 
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6 8, 7 0 ry 3 , m3 oH sh 53 gy 53 3 
D a > 7 5 5 & & x 


BEGIN %#140347030100 


COUNTUPERRURS; %140347030200 e 
I NOTSEONERROR THEN WRITENOTSEZ 9440347030300) 
| SC#3993 . | %150147030350 
ENO ELSE! %140347030400 1@ 
__ERRURANALYSIS(BUFFERNR):  ———s—“‘“‘“CS™SC™C*™*™*™*™*C‘VQMQOQOC—(i‘i‘;C~CS™S 3 
ELSE ELSE 47050000 ‘le 
IF NOT COMPAREDATA$=COMPARE(BUFFERNK ) 47060000 5 
Bias testa src rt tte I OP a ee ne OOOO ny ot ns ta 6 
END} 47080000 ; ? 
GO XIT3 a 47090000 |@ 
WCS a a cope and she POO OO 0G cere ini oe 9 
IF FILEADDR*=DALBUFFERKNRe1) LSS O THEN GO XIT3 47110000 
IF REROCEL CRE SCEUPEE ANE) ANU BLCIUMASK))=20 THEN %150147115000 /@ 
: Sr BUS OVUIA BO OOO occ) oe ache a "i 
JUNK TSLOCATIONTOUFFERNAD« CCF J#WAITCUUNK» TOMASK) 3 47125000 
SSET OMIT#OMIT OR NOT TUNEUP | %150147130000 l@ 
_ END ELSE NOWAITSSNOWAILT41s  — a H09H7ER0010 = 15 
SPOP OMIT %150147130020 e 
SSET OMITSOMIT OR TUNEUP 150147130030 17 
. wae y 1 0 @ Ue epere eat anes et ee Hy 
$POP OMIT %150147130050 | "9 
IF DELAY > 0 THEN LOFTSSTIMEC1)3 %150147130100 cd @ 
‘ * PONS 9.2 “ rN 0 r N Yj s H U0 OO... see nae Fann Seatac a a pee 2\ 
X[Tt 47150000 e 
IF CODE=4 THEN RESCBUFFERNRIJ:= ICOMASK3 47160000 23 
ereeeery Omen 2/0128 1 ae UPUA OOOO seo: wx cay ape cece Ate one eens Be a 
$POP OMIT 47180100 a) 
SSET OMITSOMIT OR NOT DEBUG a 47180110 if 
PRO DUR RNR i A (LD AUP PEER AR = 8 E> If Wl 0 Renee one nr rar ne (EA oor Oe econ Cae eR aC S 
INTEGER CODE» BUFFERNRS 47180300 ‘e 
BEGIN 47180400 : 
LABEL REEDeWeRCoWCoXITPFAKEOUTS OO 
SWITCH St#REED» Wo RC PWC . 47180600 1® 
INTEGER JUNK» BNUM3 47180700 Ga 
STREAM PRA@CEDURE SPOUT(ALF*FILEAUDR? ADS 47181100, 
VALUE ALF »FILEADDRS 47181200 1@ 
al 
LOCAL [3 | 47181400 | 37 
SIteLOc ALFS DItsLOC 13 SIseS14+7% O1ts014+73 DSISCHRI 47181500 4@ 
8 * F-] bal Ol) ; = H ; : _ : 39 
DSt=LIT " "} Sr#sLUC FILEADDRs CSt=7 DECS DSts7 LIT * "3 47181700 ‘e 
ENDS 47181800 a" 
47181900 | 42 
PROCEDURE GUTWITRITCALF DF VALUE ALFS ALPHA ALF 47182000 ) a 
BEGIN 47182100 } 4@ 
SPOUTCALFAFILEAD ReMESSAGELMESSP Js. : 47182200 - 45 
IF MESSP!®MESSP+2 GEQ WRUFF@1 THEN 47182300 6 
BEGIN | : 47182400 | @ 
54 = « 48 
MESSPt205 "8 og 47182600 | e 
ENDS 3 | oe 47182700 | oq @ 
oo na = | ‘ ce i 
% 47182900 le 
BNUMS=BUFFERNR@=23 47183000 i 
: OD 47183100 
REEDS 47183200 | a 55 
IF FILEADORt=DACBNUN» 23 Lss 9 THEN. 47183300 | 1@ 
BEGIN COUNTURCROTOG)3 GO XIT# ENDS. 47183400 , pee ee E 
@ @ 


@ 
OUTWITHITC"™R 2")3 %150147183500 
@ COUNTUPCROTOG); 47183600 
et Sane = + ee ere YG: x 1. 7: ee eee 
1 GO xITs 47183700 
@: wi 47183800 
3 IF FILE 30 NReOQ) LSS O THEN ————“‘~;C™C™™—CCCCC‘ HBQOO 
4 BEGIN COUNTUPCWRTOG)s GO XITS ENUS 47184000 
@|: OUTWITHIT(C™W 2")3 %150147184100 
6 e 
7 IF LONG THEN ROTOGtsWRTOG+23 a 47184300 
@: TOCOUNT!SIOCOUNT#+13 | 47184350 
aia ah NN EN a a cn se Se tee tee A A Oise ron tele a 
bai RC3 47184500 
eo" IF FILEADDR? =UALBNUM> 3] LoS O THEN GO XIT3 47184600 
ete te etal eae Byte ae ee A I ad Bee __ 472184700... Tee LNG 
i SracouNtisScacalnnaay 47184750 
e* GO XITS 47184800 
j a ORE OR. I eet ra eee a ere oR ae ee ee a re —AZIB4900 eet Pe. 
18 IF FILEADOR!SUALBUFFERNRe1) LSS O THEN GU XITS 47185000 
eo” QUTWITHIT(*WC2")3 47185100 
- XIT*. END DEBUGNING I03 47185300 
@7 . $POQP OMIT 471485400 
! TRERRRAASERAASREL SERRE RARE ERA RRRAL REAR EERE LE RRR ERROR ERE SEE EEE SE 2 Ee WL T CY 0 Ys ee 
p? DEFINE WCW1I=IOC29W1)#» 47200000 
@ - REEDCREED1)#10(1sREED1) #» 47210000 
= ..f WCCOWCEIBICC Ms WOLD #3 47230000 
:@ iil Rete ek EOC ihe eke ake teed 7240000 
3 P7 PROCEOUR BRE AKDOWNADOA 73 20000 ei eo Bk es 
g Pi BEGIN 47260000 
£@ 47260005 
pO OM M 2H00 Pea Up Neel ote Mane st 
s BRE AKDOWNADORESS DETERMINES THE PHYSICAL LOCATION 47260015 
@» OF THE HEAD ON WHICH THE FAILURE UCCUREDs AND PRINTS %*150147260020 
P THAT INFORMATIDNA ON THE OUTPUT FILE DEVICES Pee a MAF ZANNDS on enna natn naman aines og + seston 
5 47260030 
@» REAL FA3 47270000 
Q SN BE ca Fs os ce SP POO ate ee 
P TRACK» 47290000 
@ « Ce 47291000 
39 R, N00 hoes 
SU, 47300000 
@} SET» 47310000 
a2) ON Se ee oe ee ee O00 aaenee 
“3 PINe 47330000 
@ ‘ SEG» 47340000 
e HERD ok oO oF Dae hot eas, ete ce ea ese 
ALPHA FACES 47360000 
@ LABEL HSi»HS22HS3eHS4,FOUNDS 47361000 
SWITCH HSWSsHS sHS2,HS39HS4} 47361100 _ 
BOOLEAN EVENS 47361200 
@ F FORMAT | 47370000 
51 SUFC"STORAGE UNIT» Il3>Xda "2" eXde "ZONE 120 XBe" I" 47380000 _ ee 
X4s "HEAD" 13)» 47390000 
@ DISKFC™DISK™sI29XxX1L39"ieX4e"TRACK"r 13a XOo"E a XH 47400000 
| "PIN "sI2e" (CENTER TAP)")> 474130000 
55) bes FACEF CAS" FACE" XL ie "t™sXGs"SEGMENT "SAZeX4a%E") 3 47420000 
@ % : ie oe ae io 47430000 
: ALBDECMALCFILEADORI: 440000 
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SULECSETISOCTAL(FASLIZ!12])) DIV CA4xUKTYPE) 413 47450000 
SET?=(SET MOD wei 47460000 e 
Kis 3 50)+ (he ae ee 
REAL SET once 2=1)) MUD 280 THEN "Cw " ELSE "COW'S 47480000 
ZONES *ZNECFILEADDR) +13 47490000 1@ 
ENE STRACK MOD DROS ODO 3 
7 CtsIF TRACK LEQ 24 THEN 47500100 4 
IF EVEN THEN 1 47500200 |@ 
ELSE 47500400 ‘le 
IF TRACK LEQ 49 THEN 47500500 é 
ee : _2 ee 47500600. 8 
ELSE 2 47500700 "e 
ELSE 47500800 " 
sien il nee Le, 3 eee 5-101 tc ee 12 
IF EVEN THEN 1 47501000 ‘e 
ELSE 0 47501100 i 
IF EVEN THEN 3 ELSE 23 47501300 |e 
TRI=TRACK3 47501350 is 
apc as dt RE MT BR I rnc ee ws ee OT OO eee cross 
GO TO HSWIC+#1]3 47501500 1@ 
HS1t %C20 | 47501600 FI 
HEADt=IF ZONE = 1 THEN 1 ELSE 47501800 1@ 
IF ZONE = 2 THEN 9 ELSE 113 475061900 29 
So en le A oie PUNO ee ee oie SUSU 9 OG Ot ek Sete eee Te ee 2d 
HS2t %Ce4 47502100 fe 
PIN@STRACK DIV 2 + 43 47502200 | 25) @ 
EAD ESTE 70NES1 THEN 2 fLSeo RO 3 
IF ZONE=2 THEN 8 ELSE 123 47502400 28 
GO FOUND; 47502500 1 @ 
ee eee nko Ee 4750 a nee EE a 
PINSS((TRACK™24) DIV 2)443— 47502700 31 
HEADISIF ZONE#1 THEN 3 ELSE 47502800 1 @ 
_ N 7 £LS 47502900 3 
GO FOUNDS 47503000 : 
HS4s %¢C=3 47503050 1@ 
oe es t= Co 2)+53 aG Pe a eh Sete ee 36 
HEADt © IF ZONES 1 THEN 4 ELSE 47503300 37 
IF ZONES2 THEN 6 ELSE 143 47503400 a4 @ 
Saat tte 5 SMa TA GIN in ee tc i en TG Os oe ca 39 
FOUND! 47503600 ao 
SEGtsIF MAINT THEN IF WRT THEN "M1" ELSE "M2" ELSE 47560000 «|@ 
Fast36t1213 | 47570000 a 
% = | 47580000 4 
| WRITECOUTE I+ SUFs s SUsZONEs HEAD} : | 47590000 @ 
_ WRIT T KF eo SET#IRePIN 47600000, 49 
WRITE COUTFI>FACEF*FACE® SEG)3 47610000 i 
END3 47620000 7] @ 
ie ae ee IIIS IIDIGIUIUIGOICUIOIUIDOINIUI GiGi ini iidincicktonicnien 47630000 _ 48 
INTEGER STREAM PROCEDURE ANBLYZEOESCCRESULT # WSGBUFFER)? 47640000 4s 
BEGIN 47650000 1@ 
47650005 51 
COMMENT 47650010 ‘ 
ANALYSEDESC EXAMINES THE ERROR FIELO UF "RESULT" AND 47650015 | @ 
FOR EACH BIT THAT IT FINOS ON IT PLACES A 6*WORD 47650020” 
MESSAGE INTO "MSGSUFFER"s ANALYZEDESC. RETURNS THE 47650025 55 
THE NUMBER OF ERROR BITS FOUNDS 47650030 co @ 
47650035 s 
@ @® 


SIt2RESULTS SLt=S1+43 47660000 
Ol:=MSGBUFFERS 47670000 
; 47680000. 
IF S8 THEN 47690000 
BEGIN 47700000 
as ” 
TALLY?=TALLY#13 47720000 
osts27 LIT " "3 47730000 
SKIP SB3 47750000 
IF SB THEN 47760000 
10 : OSt=27 LIT "CORE ADDRESS ERRUR - D22 = "3 47780000 
OSt®11 LIT “ADDRESS = @"3 47790000 
a eee ets SIISRESULTS SIt=91+53 fences 47800000 
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SKIP 5B))3 47820000 
a s me Me ron ee eters 
SIS#RESULT# SIT8=5 1444 SKIP 2 SB3 47840000 
TALLYSsTALLY+]14 47850000 
eee _END3 , _ aa 
SKIP S@3 47870000 
IF $B THEN 47880000 
SERED eRe ete sieve SBE GLEN oo eet 47890000 OO 
CS:518 LIT "EU NOT READY = D213 47900000 
OS$%#30 LIT * "3 47910000 
Se Set peat ee pl eR ee A Nn a BT OOO eee 
END3 : 47930000 
SKIP SB 47940000 
Be Sac a IN 2 oe ee oe ns OOO ra ee 
BEGIN 47960000 
OS?S47 LIT "READ PARITY = D203 47970000 
OSis wo; HOOQOO ooo 
TALLYSSTALLY413 47990000 
END 48900000 
2a reece, Woes I IS 8a Trt ne Ba a a EE se a ee eet OO 0 tact aie inte tate at 
IF SB THEN 48020000 
BEGIN 48030000 
siete Ue 7 eR ALP AR eo Ee te BONO OU - 
DSt334 LIT " "3 48950000 
TALLYSSPALuYties 48060000 
NO 8070000 a 
SKIP $a; 48980000 
IF SB THEN 48090000 
OS?82 LIT "pwns 48110000 
STtBRESULTS IF SCH"3" THEN OSts_LIT "B" 48120000 
wiles SE SN a a Se 
OSts16 LIT " NOT READY = 018"5 48140000 
QOSis29 LIT " "5 48150000 
SIssSy+53 48160000... 
TALLY2S TALLY #13 48170000 
END} 48180000 
SKIP SB3 : KB19OOOO | ate oa 
IF SB THEN 48200000 
BEGIN 48210000 
DS 8516 "MEM PAR = p17"3 WAZ 
» PS832 LIT 9 93 oe 49230000 
TALLY Sa TALLY #43 48240000 
RON Bee Ce : i & WOOO 
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g 0 a 2 A é 2 A 7S iS 3 ES 3 x 3 = = 


SKIP Spi 48260000 
IF SB THEN . 48270000 e 
: Se BOC 0: 2 Cia nkn is Ho A Ee 
CSts2 LIT "DK"; 48290000 ; 
SItSRESULTS IF SC="3" THEN OSt#LIT "8" ELSE 48300000 |@ 
a EL EF MB BL NOOO : 
CSts11 LIT “* Bust = D168"; 48320000 ‘le 
0Ste34 LIT " "3 48330000 ‘ 
) STALL Y +13 2p me O00 0: Ra el We en s 
ENDS 48350000 ‘le 
ANALYZEDESC2=TALLY3 48360000 : 
is Ce eon ae eLearn ee |” WW 21 0 oF 0b Ree en 
Fo te i IIE III IOI ISI I III IGG OIG III III IOI IG IG IOI Ginette 48380000 19) 
PROCEDURE ERRORANALYSISC(BUFFERNRK)S VALUE BUFFERNR$ INTEGER 48390000 1|@ 
eRe Re PIR Ba a chen Ste a ge oe OS Se ee a OO ea hae one be 
BEGIN 48410000 é 
48410005 4% 
ss a NENG ig ce tn an ie a a ONO oo 8 Ones 19 
ERRORANALYSIS PERFORMS ALL ERROR ANALYSIS FOR 48410015 le 
FULL OR ABREVIATED OUTPUT; 48410020 y 
Seen E110) 5 ce D 
BOOLEAN Ve M2sREADERReWRITERRS 48420000 "9 
INTEGER XeERRSelodeKe2sO0UNIPS 48430000 2j@ 
__ ARRAY RIYCOD2+O2BUFFLTMDS OK HRI0100———i—i‘iéiC;! 2 
REAL YeRESULT*JUNKS 48440000 2 
LABEL XITsRETRY,UISPLAY »OULOsCHECKsOKS 48450000 2@ 
Sok a a a sy i OOO, Oe rth la ce eter rat oe a ace ee ince dhe Sete 2 
FAILF CARs" FAILURE") >» 48470000 | 2 
WRONOCI2)» 4g480000 2» @ 
RESP EMRESULT DESC. @ OM), OOOO 
IODFC"I/O DESC. =), 48500000 ae 
RSAABFCYRESULT DESCe = SAME AS RETRY "sll )o- 48510000 3 @ 
a LODSAAFC"IZ0 DESC. = SAME AS RETRY “std)» 48520000 ss - 
ISAABFC™SAME AS RETRY "sT1)> 48530000 at 
INITFC"RETRYSOCINITIAL FAILURE UN THIS "s 48340000 | @ 
i ee oY es ye VDRO ee 8 a te se MBO SOOO vn 
RETRYF(™RETRY="s11)» 48560000 
OKFCMRETRYS"I1s"» NU ERKURS* ERKGR ROUTINE "9 48570000 29 @ 
" Wy ; 36 
XITFC"ERROR ROUTINE EXITEDeee™)? %$150148581000 2 37 
DAF ("DISK ADDRESSS"*ALsAG)s 48590000 | 34@ 
ee RANS RANSFERED ON READ)» 49600 ee ents ee 39 
CORT RANGET ENG DATA TRANSFERED GN WRITE") > 48610000 40 
WOIFFCI4»" CHRSCIN"* 149" woS) DIFFER FROM "» %150148620000 |@ 
"WRITTEN RECORD@*FIRST IN WRO"*I4)> #150348630000, ss 
M2DIFFCI3e™ CHRSCIN"s 135" WOS) OLFFER FROM “>. 48640000 4 
“MF ACTORY *RCDEO RECORD@=FIRST IN "o 48650000 | «@ 
my 3 48660 ae 49 
Tr ETE ear RECORDED AT FACTORY WEREC'» 48670000 46 
Aap )=M), 48680000 |W 
OERRF(X16s "NO ERRURS")>» 48690000. _ ‘2 
LROIFFC 14s" CHRSCIN »T4e™ wOS) DIFFER FROM RETRY"sl2s 48700000 4s 
NATFIRST IN MOROMs 1A) | % 150148710000 1@ 
WORD. R WAN IEN) 4G ; 0000 5] 
RACTCI3s" WORDS READ WERE A3p")1")3 %1501487 30000 5 e 
SWITCH FORMAT NOCOMP8=("SAME AS WRITTEN"), 48740000 5 
“SAME AS RECORDED A ACTORY"™ }. 4a750000q0 en , 
% Ease Oe ee ee 48760000 5 e 
BOOLEAN OKTOGS > ee i 4150148770000 pO se 
P i SPOULCSPOUT Ee SPOUT 2) 8 uk satin Se ‘ 4AB3O000 
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@ ns § rl 
MOVE ANDWRITECTRUE* BUF FLTHsFALSEsQuTE I» 48840000 
@ COREADDR(SPOUTLLSPOUT2s1)))a3 48850000  ] 
POO as et = 
XOPTCIF BCL THEN "BCL ELSE "INT"), 48852000 
& ILC1)>» 48853000 
fal : " _ rid 4 ce eee 
XLOX)3 48855000 
@ | 49020000 
! ts 3° 3¢ ae 
READERR! =NOTCWAITERR! BUFFERNA LSS 2)3 49040000 
€ ERRORIERROR+13 49050000 
___ERRORSISERAORSe) 5 OO BOOOQ 
fo M2s=MAINT AND NOT WRT3 49070000 
ee. IF PAGE AND NOT ABREV AND ERROR GTR 1 THEN 49080000 
p2 ooo WRITE COUTFIPPAGE) FLSE 090000 
IF ERROR GTR 1 THEN 49100000 
@ WRITECOUTFI»STARD3 49110000 
rm oe ee ee i OO OO ee Claes 
16 WRITECOUTFICDBL]»FAILFeli=lF WRITERR TREN 5 49130000 
@” ELSE 4/IF READERR THEN "READ" ELSE ee 49140000 
Let eee WwW SSDECI ; _4gi9s0000 i 
9 WRITECOUTFIDS 49160000 
@r BREAKDOWNADDRESS3 49170000 
: _WRITECOUTFIDS tg OO en eet 
IF (WRT OR MAINT) AND NOT ABREV TREN IF 49190000 
OF READERR TMEK 49200000 
be I NOT NODATA THEN —C OM OACIODD 
BEGIN 49210000 
@ F WRITECOUTFICDBLJ)3 49220000 
p I M2 THEN WRITECOUTFICDBL J »M2WACT»sxXOPT) —=«s—s—— 230000 
pe ELSE 49240000 
@ WRITECOQUTFILDOBLJ»WACT*BXUPT); 49250000 ; 
P PO OMPARERB : RAR=2 35 “¥. 1 0 Y 0 Feaeneer ie ea ae ee ope 2 ee 
WRITECOUTFICDBLI)3 49280000 
@: ENDS 49290000 
WHILE TRUE po ODO 
; BEGIN 49310000 
Or RETRY? 49320000 
B36) = ’ - 
i IF NOT ABREV THEN 49340000 
@ IF X20 THEN WRITECOUTFISINITF) ELSE 49350000 
ae "had a inf Pa’ ) ‘g 60000 Rosin tS 
WaePaUSEs JUNK? =(RESULTE=RESCBUFFERNR))eC325)3 49370000 
eo. FOR It=0 STEP 1 UNTIL OUNTP LO 49380000 
2 NKEOUA 33815 HE iy 49390000 = 
3 BEGIN 49400000 
On | VtsTRUES 49410000 
_WRITECOUTET sp IODSAAFSOUNTIT],£18:15])3  — —s—s—s 420900 
ENDS 49430000 
e. IF NOT V THEN 49440000 
: p ‘ ; 9450000 
: . WRITECQUTBUFFER( *]e100F)3 | 49460000 
Or. QUNT EGUNTP LMGUNTF 41] 48JUNKAX 186 33015]) 49470000 
51 , NK 3.x nore & 3 : a BQOOOOd ee = 
FOLRCIATUNK UUTEUREER Lois G7 49490000 
@: JUNK» TRANSLATEBUF FER» 03 49500000 
F RIT 7 JTB REwjds 49510000 ae ne ee 
55 ENDS : . oe 49520000 
or FOR 1es0 ster 1 UNTILL Ket bo : beg 49530000 
x 2 He ‘ tk a = fy . : ; x : ii 9 ororere 
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ie 


DISPLAY! 


BEGIN 49550000 
WRITE COUTF IL sRSAABF oIL)3 49560000 
GO CHECK; 49580000 | 
END} 49590000 
* OF DG be oe eta 
EDITC1sRESULT*OUTBUFFERC2)20> 49610000 
ae ila eae ae MLA 49620000 
» 9» FFE 49630000 00 = = 
RCEAAOU TELL Ce ae 49640000 
IF eNOS TP ANNENZEDE DO CHES VETS UNKEUPT ER IA 1 Gea 0 49650000 
FOR Y?20 STEP 1 UNTIL ERRS OO 49670000 
BEGIN 49680000 
49690000 
WRITE COUTF I» GsOUTBUFFER(T #193 . ~~ 89700000 
END | 49710000 
Sg a a Er oe eh ae Se Se AGF OO OOO em 
WRITECCUTF I» NOERRF )3 49730000 
IF WRITERR ANDO NOT ABREV THEN GO DOIG; 49740000 
9750000 2 
IF ABREV THEN GO XIT3 ' 49760000 
IF WRT OR MAINT THEN 49770000 
IF RESULT .C33t1SIS100CBUFFERNR] .£33215)+1 THEN 49796000 
BEGIN 49800000 
te te WR EU Re NOT ACES fe rene errr cies 
IF X NEQ 3 THEN ELXI]8#03 49820000 
GO DOlOs 49830000 
IF COMPAREDATA THEN 49850000 
49860000 
COMP AREDATAt=B1GCOMPARE( BUFFLTHs %150149862000 
CORE ADORCDISKCBUFFERNR» 11)» 49862100 
COR DRC COMPAREB $1501498 
‘CBUFFERNR@2e1)))& £150149862300 
BLCFSTERR) (3543841016 shar peas ceieas 
B WROFERR r 38:10 )« 186 OO testes 
BLC(CHRERR)€12835913)3 ERIE EG 
FOR 1830 STEP 1 BNE TE X=1 00 49870000 
OMPAREDA sE HEN NO 9BB0000 
cMPCOISKEGUFFERNASTIARTYTE IS TeOTe sBUFFLTH DIV 64> 49890000 
BUFFLTH) 4150149890100 
BEGIN . 7 49910000 
WRITECOUTBUFFERL *],RACT*#BXOPT)3 © 49920000 
T STBUFFERDL «+ ISAABF ys 3 499400 tele te: 
MOVE C2eTESTBUFFERsQUTBUFFERL3])3 49950000 
WRITECQUTFI*5*GUTBLFFERL*))3 49960000 
F_X NEQ 3 THEN ELX]s==REAL(COMPAREDATA) 9970000 
GO DOIG; : 49980000 
ENDS 49990000 
WRITECOUTFID3 i 0000000 
IF COMPAREDATA THEN 50010000 
BEGIN 50020000 
F_NOT NODATA THEN 1501509021000 
BEGIN %#150150022000 
<< nRITECOUTFIEDOLI¢RaCT BKOPTD: 50030000 
_ SPOOL TSK eBUFFERNR) 2: 0950000 
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& 7 Se @ 
WRITECOUTF1L)3 50060000 
] ENDS 6150150061000 @ 
F NEG EL PAREDATA)3 Y70000 
1 IF WRT THEN 50080000 
@: WRITE COUTF l*WOLFFoOIFFL? ELSE 50090000 
3 i a PMN Ne ee te ee  SOLIOON0.. ~~ 
4 WRITECOUTFL*M2PIFFsDIFFL)» 501¢000U 
@|: IF ELKJ=U TNEN 50140000 
8 a I en A ca 9 Be oe Se ee ON eee 
7 K'=x3 GO DOI; 50160000 
) : END ELSE 50170000 
os ee ee ee SO 0000 es ae 
Ms BEGIN #15015017910C 
roa ViSBLOCUMPARECBUFFLTA? 4150150100000 
ba i etc ae fatal has a CONE ADDR TORI BUPFERNRed))» 4150150190000 Dyas into sean Ea. 
COKEADDRORTY(K20)))3 %150150190100 
@™ | IF X WE@ 0 THES 50210000 
Ns oe ee ee oe WRITE CTP IL loiii EF 50 ee ee 


Pan eiecoee. 


ss 
a 
m 
2 
co 
~ 


ee” KtsXx3 50240000 
, Leh a oe 8 a SN Serre a co rl 5 PEO OO ee ph 
cn BEGIN 50260000 
e* IF X NEQ 3 THEN ELX}?8Q3 50270000 
pat OR oo * H tae as Wiel a ot RON fen ul 
pa WRITECTESTBUFFERC*) sNOCUMPLREAL(M2)1)3 50300000 
e7 MOVE (4s TESTBUFFER»CUTBUFFERL31)3 50310000 
so Se es SON ain eee wR TE CUTE Le OR UUTEU PEE wl wg 3 es ON G00 a 
ps ENDS 50330000 
i IF OKTOG THEN %150150331000 
ps WRITECOUTFICOBLIJ»XITF)3G6G XIT3 %150150331200. 
@ * ENDS %150150331300 
po ND - s0380000 
ia | IF COMPAREDATA THEN GU DISPLAY ELSE 50350000 
OF WRITE COUTF 1» NOTRANSF )3 | 50360000 
i Ga a a a be OOOO Ge ee co! 
pe IF WRITERR THEN 50380000 
ee IF RESULT »(332159]=1OULBUFFERNRIJ+L33215)+1 THEN 503900006 
pe WRITE COUTF I NOWTRANSFOQS UU 8 4NOOOO UU 
a IF Xtecltexde1e4 THEN GO XIT ELSE 50410000 
@ ©: IF READERR THEN IF ELI] GTR O THEN 50420000 
8 nid MOVECBUFFLTHsDISKCBUFFERNRa 1 )eRTYLI00) 23 50430000 — 
OLRCIJ:=RESULT3 50440000 
@ 1OREQUESTC= GRE Seaey ANG sant suit e Nny 60 50450000 
2 : 46 ; 
JONKT=LOCATIGNTBUFFERNRI. 3901574 : a 50470000 
@ + WATTCJUNKs TOMASK)3 50480000 
; OGR ROCSlts= REAL(CBOOLEAN OGR RCS OR 0480100 BP an 
BOOLEANCRES[BUFFERNR1))3 50480200 
Ya IF RESCBUFFERNRJ.[25:8) NEG O THEN 50490000 
BEGIN 50500000 
IF READERR THEN 50510000 
COMPAREBATAS=COWPARE (BUFFERNK di Le 50520000 : 
GO _RETRYS : 50530000 nema 
ENDS 50540000 
IF READERR THEN %150150550000 
IF WRT OR MAINT THEN %150150550400 
IF COMPARED ATAISCOMPAREC BUFFER) “THEN %150150550200 
60 RETRY Hee %150150550300 


“LS a ie is wot 8950150550400 
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a zy 6 g 5 5 n a wk) BS = x. 


: 


ee ne q 
GO OK %150150550500 
ELSF %150150550600 é 
CKTOGE=COMPAREDATA $=COMPARE (BUFFERNR)3 %150150550800 1 
GO RETRY3 %150150550900 :/@ 
: : 
ELSE %150150551100 4 
GO OK; %150150551200 |@ 
ND 5 motte OR POO O08 ica tte . 
OK: 50580000 ) 
WRITE COUTFIECDBLI)3 50590000 : 
XIT? 50610000 ie 
WRITE COUTFI1)3 50620000 i 
taf 2294 —#15.0150630000 Bz eektes ie 
LOGBUFFER[3]%% reLaUErERe a & Xl124484)3 §0631000 e 
END ERRORANALYSIS3 50640000 fe 
SERRRESAREAREEEREREE EE 2 . RARE ee ee oe Rewer 5 O6500050  — 
STREAM PROCEDURE GETPATERNCBUFFLTHs SHIFTBUFF »PATERN*KWIK)3~ 2150150660000 ‘\e 
VALUE BUFFLTH*PATERN*KWIK3 %®150150670000 fe 
. (\ Hod Q Se opacities wee SE l 
LABEL XIT# 50690000 1@ 
DI t=SHIFTBUFF 3 50700000 ; : 20 
ik KC A Size *MOOOGCOOUNDONE: ‘15 50710000 : a) 
DSt=2nESETICSP=2SET,USt=2RESETS #1590150/10100 a 
CSt=1ZLIT"1246 ~#<¢(,Gs", 2150150710200 21 @ 
Soe ee ee SL PTMON DSRS eT (CLONER Se ey a eee 24 
27COSESBLIT"QZ4Sx") )5 150150710400 
JUMP QguT TO xyT)s 4150150710500 2] @ 
a on wA> . ; * . 12 
JUMP OUT TU XIT)3 150150730000 ie 
BUFFLTHCOSSS8LIT"EN)3 4150150730100 2 @ 
hI I saa a te te BO POO Deere oo 2 
END GETSTD3 50750000 | 
BEA G PURE CEMeN oc eee ee an er 0 00000 1 @ 
PROCEDUR ETNEWADURESS(COp VALUE COMES INTEGER 5 OP OOO Ore jee Fa tells new ee Se 
BEGIN 50780000 
50780005 @ 
GETNEWADDRESS IS RESPONSIBLE FOR ALL O1SK ADDRESSING 50780015 ial 
DURING THE TESTS.» THE VALUE OF "CODE" DETERMINES 50780020 1@ 
HOW THE DA ARRAY IS TO BE MANIPULATED AS FOLLOWSS 50780025 39 
50780030 ag 
CODE=0 SHIFT ADDRESSES 1 WORD TO THE 50780035 «/@ 
RIGHT AND PLACE NEW ADDRESS IN 50780040 of i 
THE FIRST WORD OF EACH ROW, 50780045 4 
USED FOR REVERSE ADDRESSING | 50780050 4 @ 
MTESTSe. . 50780055 9 
cODE=1 FILLS DALRDTOG=2e*) WITH THE 50780060 46 
NEW AUDRESS, USED IN TEST 2 50780065 7 @] 
OpE=2 FILLS DACWRTOG*0) AND DACWRTOGs1) 50780070 : 
WITH NEW ADDRESS. USED DURING 50780075 — 49 
| WRITE PASS ON FORWARD ADDRESSING 50780080 : 1@ 
ee mee Ey TESTS: , | 7 ; 
CODE=3 FILLS DACRDTOG= 2re) AND 50780090 5 
DACRUTOG=2s3] WITH NEW ADDRESS. 50780095 «| @ 
USED DURING READ PASS ON 50780100 _ 54 
, FORWARD ADDRESSING TESTS,. 50780105 en ae 5 
CODEs4 DOES NOT ALTER Alen), USED 50780110 : -_ | @ 
ee FIND FIRST ADORESS:: 70 BE... 507860115 7 ‘gee ; eee zy, 


om n~x Oo MW F WH = 


= 2 OSS 
QA SF R= 6S 


~~ 


we 
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6 * 2 4, + 5 * ; 


TESTED. CA CALL Ls MADE WITH 50780120 
THIS PARAMETER PRIOR TO RUNNING 50780125 
Scenes OE 90 cere see ett es 
3 50780135 
50780140 
INTEGER IeDIRECT3 %150150791000..—~”™” 
REAL JUMP} 150150792000 
: IF CODE=4 THEN %150150794000 
BEGIN %$150150795000 
____ TF NOTCLONG OR MAINT) THEN. eee 
BEGIN %150150797000 
WHILE NOT TWOTCZONE!*ZNEC(FILEADDR)s»Z0NEWORD) DO %150150797100 
em ye, FILEADDR#=(100x(FILEADOR DIV 100))*SZLZONE*3]3 %150150/97300——— 7 
IF REV THEN FILEADDRE=FILEADDR@1 ELSE %150150797400 
ENDS %150150797600 . 
ZONEQFFSET#0FFSET#= %150150798000 
_ SZEZONE+ ¥150150800000 | 
CIF REV THEN 6 ELSE 3929903 %150150801000 
DEL TARSDLTACZONEI3 %150150802100.t—“‘i‘:*# 
ENDS %150150803000 
pipet TO ETE 8s edrtae 
ENDS %150150805000 
IF ADDRESSINGCOMPLETE THEN 150150821000 
= N 4 woe OOH jet ES aces, 
FILEADDRi 3°13 %150150823000 
GO XITLs %150150824000 
ND Q 0.8 OO Ole oi Retains ae ee 
FILEADOR!®IF BL¢CGDE) THEN %150150826000 
DALABSCRDTOG"3)52) %150150827000 
7 OATABS(WRTOG=1)013 %150150829000. — = 
DIRECTItsIF REV THEN "1 ELSE 43 %150150830000 
SKIP: 150450830500 pees 
IF JUMPOFF NE® 1 OR NOT LONG THEN COUNT?=COUNT413 %150150831000 
% %150150832000 
KWIK THEA 0150832100 _ 
BEGIN %150150842200 
IF FILEADDR! SF ILEADOR* 12 LE@ ENDADUK=5 THEN GO XIT13 %150150832300 
S B DK TREN GO DFA 0150832400 
IF FILEADDRY SSF AI =8EGINADOR®S LEQ ENDADDR=5 THEN GO xIT13 50832500 
GO DFAKE3 4150150832600 
ND : oe : (} et 
IF NOT CLONG OR MAINT) THEN Saeaieons 300s 
BEGIN %150150834000 
ROQTS= EADOR D QOIx1 003 0150835000 eee 
DELTAtROLTALZONE)3 %150150836000 
INX$93 + 3XREALCREV)3 ete Be Bie, og RESOL50897.000 
OOP ZONEQFFESETASZONEOFFSETSDELTA GEO SZEZONE- EN %150150845000 es 
BEGIN %150150846000 , 
IF SFASSSFA+1S0ELTA THEN %150150847000 
F4 [\ O Od S000 
“ZONEDONES oo %150150849000 


veeed ‘ZoNess¢Zonewssoinect | M00. _3eaBScOIRECT +L) THEN 50850000 


ROOTISROOT+1I00x“DIRES 


Oi SOses8i000 
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0 5 s ° 5 ) Th 5 aS BS >. : 
5) dn 3 i & a Ps re a g 


UNTIL TWOTC ZONE» ZONEWGRD D> 1501508532000 


ZONEUFFSETSFOFFSETIASFAS=03 %#150150853000 e 
EL TALEO, TALZONEDS ss oBsaoon 
FILEADDRi=ROOT+SZLZONE+INXIJ3 %150150855000 ‘e 
GO TO xIT23 %150150856000 | 
pee Ba ee oh ata ae SD 18 hy POY BRB EP ADO ictees tot cade Selena 
IF ZONEOFFSET?S0FFSET+SFA GEO SZLZONE) THEN GO ZONEDONE} 50858000 ‘le 
END3 %150150859000 
ANDR:=ROOT+S ONE+INX J +(Z70NEFUOFFSETXDIRECT)3 2150i150860000 ° 
XIT2t IF REV THEN %150150861000 
IF FILEADDR < BEGINADOR THEN %150150862000 1@ 
FINDQUT! . e's TT 1-77 £1, 1.1, 8 
IF ZUNECFFSET#0 THEN GO DFAKES %150150864000 10 
GO LUOP; %150150865000 |@ 
sek tices cet a ENG a i a i he A Sh en A OE OURO OOO use suet ot ” 
ELSE %150150867000 ta 
ELSE %150150868000 @ 
DF FIL EADOR > ENDADOR THEN GO FINDQUT3S ss 50 G50R8H9000 —s——i—iaws—i—ts 15 
GO TO XIT13 %150150870000 “e 
END %150150871000 7 
Se NS a tes te PON SOOT OU Uae: ae otto tnt 5 Ra, tae a 18 
IF LONG THEN | % 150150873000 "9 
BEGIN a a ae %150150874000 1 @ 
IF COUNT < SEGS"1 THEN %150150875000 2 
BEGIN %150150876000 “9 @ 
WUTC UMPORE eg 50450877000. ee 24 
SFALSFILEADDRIsSFA+UUMPOFF; — %150150878000 
IF LONGR THEN | % 150150879000 3 @ 
oT BL UMPOEE) TREN gS OBBOODD. 2 
BEGIN #150150881000 38 
IF BLCJUMPCOUNT) THEN GO GFAKES % 150150882000 1 @ 
Na ea tee es cee MP UN Tf ee oe a rs a a BUSTS OUR S000 a tects 
SFA!SFILEADDRI®SFA@14 %150150884000 a 
CIF I8=CENDADOR@BEGINADDR) MOp DELTA = 0 GR %150150865000 | @ 
- 1 GEQ DELTA=LDELTA THEN DELTA Dly 2 4150150886000 3 
ELSE 1)3 %150150887000 
IF FILEADDR > ENDADDR THEN %150150888000 @ 
wa a ee TIA 8 tse EPO TS OBO 9000 3 et ts Te eel ee eee, a "4 
ENDS %150150890000 | m 
SWITCHERS = TRUES %150150891000 4®@ 
ND , | $150150892000, ‘ 
ELSE %150150893000 ‘ 
GO DFAKE 4150150894000 «/@ 
NO 50150895000 3 
ELSE ma 3 %150150896000 : 
BEGIN | : $150150897000 4@ 
R HEN 4 $150150898000 | ‘ 
IF FILEAUOR# =F ILEADOR=SZLCZNECFILEADDR)+2) MOD 3) GEQ 50899000 yl 
JUMPOFF THEN %150150899100 |W 
\ 0! 0900000 48 
ELSE . ¥150150901000 a 
ELSE %190150902000 @ 
. % 2 : P ° i H ee 5 3 es 5] 
GO XITS. % 150150904000 5 
IF JUMP tsJACREALCREV) »JUMPCOUNT&=SyUMPCOUNT+2] < 0 THEN%150150905000 «| @ 
DF AK 7 ‘ $150150906000 —_—_ _ . 
i ADORESSINGCOMPLETE sTRUE3 %150150907000 : ey 
: JUMPCOUNT ESOS | - ¥150150908000 7 aoe s 


° ee ee Sp a Pa a tr re Co _ e 
BEGIN %150150909100 
 ) FILEADDRise13 %150150909200 @ 
Se se a aN ee te eh en TY OOS 900 a2. on erecta ae 
1 GO Ta KITS %150150909400 
@» END %150150910000 
3 
‘ BEGIN 2150150912000 
@; FILEANDRt =JUMP3 %150150913000 
6 “ ¢ is 
i ENDS —- 150150915000 
eo: END3 . %150150916000 
ke XITs _IF WRTLOCK THEN 184 HN9T FOND 
No IF WRT THEN %150150918000 
er IF TWOTCC(FILEADOR OLV 10000) MOU 100»LOCKWORD) THEN%150150919000 
pa eh A tn ane fae See earns = EO Nu ee es oI bet ar eR a eae aie gk ye oe aE OO POO OU arn ere eaten te 
y IF CODES4 THEN 2150150921000 
@ FILEADDRI=(10000x(F ILE ADOR DIV 10000) )+ %150150922000 
9 eee eerie eRe rat Ee A x ee ean len edt 2 
ie FILEADDR¢ sFILEADUR+OIRECTx(1LO000@SZECZNECFILEADDR) 50924000 
e” *#3°D[RECT) MOD 3])3 -%150150925000 
Ne tee aah : sat SYS = a at te nn oh ae ad BO SOD POO UO an ton 
. | ENDS 150150927000 
@” IF NOT TWOTCZNECFILEADOR)»ZONEWORD) THEN GO SKIPS %150150927100 
: aM AP Ne a a a Ne se nn nei en ee EE SOL ROO EO OU a Sel, A 
p2 IF cODE#0 THEN 150150928000 
@ BEGIN %150150929000 
a Be _ DALWRTOG SISEDALWRIOGs 255 1 50G50930000——i‘“‘<CSCS*™*™” 
5. DACWRTOG»O]2=DACWRTOGs1)! SDALWRTOGs2]%aF ILEADOR3 %150150931000 
:@ i DACWRTOGs2) 1 3F ILEADOR? %150150931200 
3 F a O09 2 6 2 
a ELSE %150150933000 
£0 IF CODEs1 THEN 4150150934000 
po YO) as Mise eo, Ves neote . tetas cee ees 
DALItsAOTOG=2r1)?=DALI>0}30AL I» BUISDALIo2)3 —. 4150150936000 
e DACIsO]8=DALTo2)22F ILEAUDR3 me %150150937000 
Sem |p eon a er eee ee te ee cee IEE 610K = (5-1-1 a1 0 « eR eee CD 
‘ ELSE %150150939000 
Ld IF CODE=2 THEN %150150940000 
e 3 \ 0941000 ee APRA Par 
DACWRTOGs112=DACWRIOG2 0] 5DALWRTOG? 0) 3*FILEADDR: %150150942000 
@ &: END %150150943000 
3 0 ¢ “OOO 
BEGIN | %150150945000 
e DACLItsROTOG@"25 3) 22DALTs2)3 NACI» 2):=F ILEADDRS %150150946000 
ND 0 0) NOOO 
! DONE: END OF GETNEWADDRESS; %150150948000 
@ Bee Geet ochre eet eee ee ee 
5 pV PRO s sam 9 fy fr IN A WR RK Ta CLA f OOO 6 ites wee 
OUTBUFFER*BUFFLTN)$ VALUE TEST#HALNT®WKT*REVe SHIF? »LUNG#LLa 51420000 
@» BUFFLTHS 51430000 
LABEL SsWOeXIToTaPoWols | 51450000 : 
i & cee ‘ | 51460000 
EI 2 . soe te ee 
OStsS LIT "TEST "3 51480000 
@; $1#=1.0¢ TEST: D8tz2 DECs OIt=DI- es OSt=F ILL; 51490000 
B R sa=DI+#73 DOS3x;3 : OON00 on on 
MAINT (OSH ®LIT Mig WRICDS#sLIT atny JUMP. OUT 2 TO $)3 51510000 
or DSteL1T man fume our TO S23 51520000 
“a Be : HS iaé tl PR A fact 5 : : “ | Q000 
 ) 


@ = @ 
St  pSt211 LIT " SEGMENTS7="5 51540000 
@ MAINTCWRTCJUMP OUT 2 TO T)s OSt#e4 LIT 51550000 @ 
sh ee ee re OR AINE Y SE GMEN ES 1 pG 1p gai os ot het ee ere i ee ee 
TR . ; 51570000 : 
is] WRTCJUMP OUT. TO LIS MAINTCJUMP OUT TO L28 51980000 |@ 
=z : x 1s . Sago oes eta aetne 3 
Li 51600000 . 
@ LLCDSt244LIT"LONG I/O TEST 2" 3JUNP OUT TO WO): %150151600100 |@ 
ONG(OSts24 LIT "SEGMENT CROS ER 51610000 seth inat : : 
JUMP OUT TO WO)3 51620000 | ? 
@ WRTCOS#@10 LIT "WORST CASE"; SHIF COS 339 LIT " SHIFTING™S 51630000 1@ 
MP__O1 @ P)s DSts9 LIT ™ CONSTANT™)3 51640000 : 
ie 51650000 ‘i 
@ WRTCOS#29 LIT ™ PATTERNS")5 51660000 \@ 
__ wot F $3230 $5161 ee ee, in 
DSt24 LIT " wo "3 51480000 i 
© REV(DSts? LIT "REVERSE"S JUMP OUT To W93_ 51690000 @ 
aS er oRwARON, gg nn Sone 18 
we 51710000 “e 
@ WRTCDS3=4 LIT " R/W"S JUMP QuT TO XIT)3 51720000 ” 
NS%t=6 " READS"; 730000... KS 
. MIT? OS#aLIT ")"s ENDS 51740000 . S 
@ re pene ee neta 82000 cd @ 
BOD Ra FR a i i : ala wa ll 0: 3000... of os tres SA Fi tionteihs Aeon te ee = : el 
f IF SC8=¢SC+1) MOD 100 = O TREN 4150151743100 
@» IF STOPPER NEQ 0 OR JUNKB!=BQOLEANCTIME(=2)) THEN #150151744000 21 @ 
2 24 
ab Racedecsen@eeedstascssavdees cc e)saseh dices Gs eau ss es) Ais aude ats le rasode” _ “« . 7 =~ e 
@ a‘ DEFINE STOPCHECK®IF STOPTHETEST THEN GO xIT#3 sheen ah 
9 2 ‘ pate stl ky cithseetoas 2 
ei PROCEDURE SETIOSIZEC1OD,SIZE)3 VALUE SIZE3REAL LOOSINTEGER SIZE3 2150151747100. e 
:@ ae TODP=1ODRCBUFFLTHI#SIZEXCCTSFIGCCSIZE+29) DIV 40)C27842to)3;  %450151747200 3@ 
g 80 * * ween S 1 7HBOOO cas a 
ee PROCEDURE QUICKTEST? %150151749000 1@ 
g@} BEGIN %150151750000 
Pp Fo i RII TOI I IG II III IGG GO i iiioto toc 51751000 ——s. 
@} PROCEDURE FINISHQUICKTEST(REEDJ3 VALUE REEUSKOCLEAN REED; 150151752000 @ 
16 : \ 7 N00 ae ETO 36) 
i % : %150151755000 . 10 
or IF SEGS GEQ 6 THEN ¥150151756000 se 
E 
BEGIN %150151758000 0 
e COUNTUPCRDTOG)sRCCRUIUG)S %150151759000 «|@ 
END %150151760000 ae. ad 
ELSE %150151761000 4 
@ | BEGIN | -¥150151762000 4@ 
COUNTUPCWRYUG)SWNCCWRTOG)3 %¥150151763000 ‘ 
%£150151764000 10 
& NT13@SEGS MUD 6 NEQ O THEN %150151765000 | @) 
BEGIN | %150151766000 | 18 
NT2ta2xROPSETIOSIZECIOOLNT2J* 30xNT1 23 %150151767000 4s 
@F LODINT29 9 C2786] SRENTIERCNT1)3 %180151767100 | | | : sd @ 
DACOPOISSENDADORTENTIERCNTL 3 | 4439151768000 . : 51 
oe MOVEC3sDALOF01»DAC001]))3 %¥150151769000 8 
@; LOC2"RDeNT2)3 %150151770000 “| @ 
_LOC4*ROeNT2)3 %150151771000 = | 
; “SETIOSIZECIOOCNT2)-OLOBURFL TH): 8 ~~ 190151772000 ime 55 
@r. GI TAC Boba lal Mette a a0? ¥130151772100 . {@ 
ee Ju END3.. 4150151773000 ee ‘ ek . 5 
@ e@ ®e 
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SFAt=FILEADCKE=BEGINADDhs %150151775000 @ 
22mm 776000 _. OA Lee ont Ree 
Biot ie io IO Ro toa kkk ikikik kee 51777000 ' 
LABEL KWIKWRTsKWIKREED»XITS %150151778000 @ 
Sia Ae gate neels 3 
DALO»0)%=FILEADURS %150151782000 4 
MOVE C3%DALOr0)»DAL0911)3 %150151783000 1@ 
6 
IF WRT AND NOT RO THEN %150151785000 . ? 
IF SEGS < 6 THEN %150151786000 1@ 
tenses ene ast a SERIE PTB POD eis Ria ad oe eee 8 
ELSE %150151788000 bi 
BEGIN %150151789000 '1@ 
- WOE eet aa a Aaa oh Pion eae male eg ee oe ke 12 
~KWIKWRT? %150151791000 i 
STOPCHECK; %150151792000 \@ 
7 ME ih iE Ww Se Saree ee ao EOS OOO nme, Bene eh fee ed ee nt ee ND 
WCCWRTOG)3 %150151794000 ki 
IF ADDRESSINGCOMPLETE THEN %150151795000 ie 
st koto Kove pe Hatin de toe reese ae a 8 at 5 ee 13 
FINISHQUICKTESTCFALSE)3 %150151797000 Me 
DALO»0]1*F ILEADORS %150151798000 1@ 
se Ls Ti tt MPS OLS 47 98000 sacri ae al 
END %150151800000 : 
ELSE %150151801000 21@ 
Soe ae eee eee «3h ee bo a a Se ENS PO OOO O04 t8e 24 
WCWRTOG)S %150151803000 : 
GO KWIKWRT3 %15041541804000 1 @ 
_ fol: ee ee 2 
END} %150151806000 ze 
IF SEGS < 6 THEN 4150151807000 1@ 
NISH K F 0 BOB OOO esc ceo ee oe le i ee a 
ELSE %150151809000 bs 
BEGIN %150151810000 | @ 
oo REEDC QR OLS BLLOOO 3 
GETNEWADDRESS(3)3 %150151812000 
IF ADDRESSINGCOMPLETE THEN %150151813000 35@ 
os BEGIN FINISHQUICKTESTC(TRVE)s GO XITs ENDS $150151814000 a ee 
REEDC3)3 ¥150151815000 | 37 
KWIKREED$ #150151816000 ; 3@ 
STOPCHECK 50 Bi7000 aes 39 
GETNEWADDRESS(3)3 %150151818000 , 
RCCRDTOG)3 %150151819000 \@ 
space tcee «cat OM HEN 2 y bees 42 
BEGIN %150151821000 4 
FINISH@UICKTEST(TRUEDS GO xITS —-£450151822000 . 4@ 
Sree eacmioes HEN E e e Bete  e %150151823000— 4 
REEDCRDTOG)3 %150151824000 ‘9 
GO KWIKREEDS %150151825000 + @ 
ENOS %150151826000 eee : cs 
XITs %150151827000 ~ As 
ENO OF QUICKTEST ROUTINES. %150151828000 , by @® 
JOS GIN UID OUI IIE IDIOUUI rE ii aUb nits hia Ob obi aia anne /829000 = ; Sf 
PROCEDURE REVERSETESTS %150151830000 5 
BEGIN %150151831000 1@ 
NTEGER Ivus | 150151832000, 64 
LABEL REVLOOP>CONTINUE*XIT# %150151833000 . oe, 65 
% : — %150154834000 | “hed 
MAINT THEN 0151835000 : a y 
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BEGIN 4150151836000 
FILEADDR&S=UACL120)3 %150151837000 
SLUR OE eS) a fn OOOO) erence. tre, aaye ee 
ENDS . ¥150151839000 
GETNEWADDRESS(4)3 %150151840000 
& x 213s i [ie wi Sacedatee. tetht os See eh asl 
DACOsSI2=DALL-OIZEDAL Le LISSDALIe2I EHalCi»gis=eny;3 ¥#150151842000 
wCO)3 %150151843000 
REVLOOP? 150151844000 == 
STOPCHECK3 %150151846000 
GETNEWADDRESS(0)3 150151847000 
ADDRESSINGCOMP FiE 48000 2 
BEGIN %¥150151849000 
FOR 1820 STEP 1 UNTIL 1 GO FOR Ys=0 STEP 1 UNTIL 3 DG ¥150151850000 
GO XIT3 %¥150451852000 
an END? %150151853000 
8 eS eRe Bl ce a et AN eS 
WOWRTOG)3 %150151855000 
WCCWRTOG)3 2150151855100 
REED CROTON pe ne SOT SD TBS OO 00 on ie, ce Bed ee 
RCCROTOG)$ #150151857000 
%150151858000 


GO REVLOOPS 
-END OF 
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PROCEDURE LONGTEST3 #150151861000 
NE NO BR Ot ieee a 
LABEL STARTLONGLOOPsLONGWRI TE» STARTLONGREAD sLONGREADsMAKESWITCH, 51863000 
XIT3 %150151864000 
D \ DERE AD D 0 B64ioo peas Se Ne hs ee 
Rec e Oe e ede enero OOH ERODE EH HEP OEE ED EAE Hereee reser saneessrsesscccees ed LGO4200 
PROCEDURE FINISHLCAGTESTCREED)s VALUE REEDS BUGLEAN REED} %150151864300 
IF REED THEN BEGIN COUNTUPCROTOG)SRCCROTOGISEND ELSE %150151864500 
BEGIN COUNTUPCWRIOGISWCCWRIOGISENDS %150151864600 
Q SW A v8 UMP T) T 51664700 
IF NTISSENTIERCSEGS MOD DELTA) GEQ DELTA*LDELTA THEN %150151864800 
BEGIN 2150151864900 
_____ SWITCHER SSFALSES NTe@twexRDs SETLOSIZECIGDINT2 J, 30xNT1)$%150151865000 = 
DACO*OTSEENDADOR@“NT1SMOVEC3*DALO20)+DAL0#1) 93 %150151865100 
TOC2*ROONTZISTOC4S@ROeNTO)3 SETIOSIZEC LOOLNT2)s¢O0LDBUFFLTH)3 31865200 
. “ENDS es | $150151865300 
SWITCHERS FALSE; ¥150151865400 
END3 4150151865500 
Ra reetancrecseeenen ee fF eoeretoeeoeosaesrFoge Peete FeeeFeFee Pease Oeeeene sone 000421865600 Ae a TEED 
ENDADOR?SENDADOR@CIF LONGR THEN 29 ELSE 194 %150151866000 
JUMPOFF8@ 43 ‘ a —— %150151867000 
_GETNEWADDRESS(4 3 %150151868000 = 
DACOsO]82FILEADDRS #150151869000 
MOVE C3 sDAL0 sO) sPAl0r1))3 4150151870000 
STARTLONGLOOP 3 %150151871000 = 
WCWRTOG)3 %150151872000 
LONGWRITES %150151673000 
STOPCHE 7 150151874000 
GETNEWADDRESS(1)3 #150151875000 
WCCWRTOG)3 %150151876000 
IF SWITCHER THEN GO STARTLONGREADS 150151877000 = ieee 
WCWRTOG)3 : MS pe got ts %150151878000 . 
GO LONGWRITED %150151879000 
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FINISHLONGTESTCFALSE)D; %150151881000 
REEDCRDTOG); 4150151884000 
___GETNEWADDRESS(1)3 Soe B00 Oe eat ee ee ee 
IF ADDRESSINGCOMPLETE OR SWITCHER THEN GU MAKESWITCH3 %150151886000 
REEDCROTOG)$ Peek eeooe 
LN fe we SBBBOOS jal hae ne 
STOPCHECK; 2150151889000 
Se OUR eo ache ei op 12 bes0000 
R RO < 000 be nso Rey a oe, 
IF ADDRESSINGCONPLETE OR SWITCHER THEN 4150151892000. 
MAKESWITCHS #150151893000 
Fans aN GT 8 i i eet a ee ee ee POY RS ERG AD OG oe on ps = 
WRTOGt=ROTOG=23 %150151895000 
FINISHLONGTESTCTRUE); 150151896000 
Se ha th Base ea . “NGC Ge eel ak OTS 1 B09 O00 eet td 
GO TO STARTLONGLOOP} tee %$150151900000 
END; . %150151901000 
GO LONGREAD3 #150151903000 
XIT: END OF LONGTEST ROUTINES %150151904000 
haw ee ee a We KKK RARER AREER KK aakk ak x * HOTS Wa 0 0 ieesearree scien gee ee Oar 
PROCEDURE FORWARDTESTS %#150151906000 
BEGIN %¥150451907000 
RABEL LOOP Ls STARTROLOOP s OOP2eFINISHUPexIT? .____3450151908000. _ plaresh A faeces 
4150151909000 
i MAINT THEN %150151910000 
BEGIN, She cto ete = BL OOS FO NOOO rsa en ok pd cence 
FILEADDRtsuAlor0]3 %150151912000 
rte eta Se myo tte 000 
A AUD ? PO ot Le a 
IF TEST=1 THEN FINOGOODM2PATTERNCFILEADDR)3 3150151915000 
END %150151916000 ; 
YO 0 1 Rea meee eee ae eee an 
GETNEWADDRESS( 493 *#150151918000 
IF WRT AND NOT RO THEN ; %150151919000 
OO ett aie 0s ah ees 
DACOsOJF=DAlCOe1L SSF ILEADDRS %150151921000 
WOO); #150151922000 
I tc i SO PO 000 Ee oh tt 
STOPCHECK3 %150151924000 
GETNEWADDRESS(2)3 %150151925000 
WCCWRTOG)§ 150151926000 
IF ANDDRESSINGCOMPLETE THEN GO STARTROLCUP3 *150151927000 
WOCWRTOG)3 2150151928000 
GO LOOP’; #150151929000 
STARTROLOOP? %150151930000 
ADORESSINGGOMPLETEs =F ALSES ‘ 4150151931000 
COUNTUPCWRT OG 30 9200. 
WCCWRTQG)3 %#150151933000 
COUNT!203 4150151934000 
IF MAINT THEN 4150151935000... 
BEGIN : %150151936000 
FILEADDRtaJACO+015 on -%150151937000 
END ELSE FILEADOR? sBEGINADORS 4150151939000 
GETNEWADDRESS(4)3 %#150151940000 
NO 415 } Le 
DACOs 2) 83DAlOe 3]SSFILEADDRS © est =. . %150151942000 
REEDC2)5 | } a | me ¥150151943000 
ORPCH K : oss : : oan He? 7 oy AnO 
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GETNEWADDRESS(3)3 %$150151945000 e 
IF ADDRESSINGCOMPLETE THEN %150151946000 
e : iE ND» ; EY 21 011 0 6 pee a mee ant ee en eo te ee 
REED(3)3 %150151948000 y 
LOOP?! 4150151949000 :|@ 
____STOPCHECK3; == —____%450454950000 ? 
GETNEWADDRESS(3)3 150151951000 le 
RCCRDTOG)3 %150151952000 : 
ADDR OMe F THE) NISHUP 3 15 53000. . 
REED(RDTOG)S %150151954000 ? e 
GO LOOPe; #150151955000 F 
Sa UN SUNS on oe ES ee 56000 0 , 
COUNTUPCROTOG)3 %#150151957000 1 
RCCRDTOG)3 %150151958000 |@ 
ENO OF FORWARDTEST RUUTTWES pel Sa er ee POT STIS 000 erat 7 
Bi II IOI IOI OIG EIGER ID ISICON IOIGIIOIUINIGIIGI RIO RO wit are #5 1960000 ba 
PROCEDURE RUNATESTC(TEST)SVALUE TESTS INTEGER TESTS %150151961000 @ 
ie Nie ee ee a ce tO BAPE BOO. ned pte Gee 
FORMAT %150151963000 be 
DASH(72¢"="))s %150151964000 \@ 
ro ISK MODEL “saze" 20" M 50151965000... see 18 
NODOFC™TEST"sT a0" NOT PERFORMED (DISK CONFLICT)")>» %150151966000 19 
WRILOCKFC™TEST"s 132" NOT penegnech CWRITE*LOCK)™)» %150151967000 29 @ 
2 ; 7 i D Test” ; Ore hea ete eedere eget ie whee cs hc Ot Fee, 24 
SEGSFC 16s" SEGMENTS TESTED"), %150151969000 22 
ETESTC"END OF TEST "»I2e™ RESULTS")3 %150151970000 2 @ 
INTEGER IeREPEATS Peers 9) a0 ae Gece 2s K.2) 8) Came ee ey ae eee ee 24 
REAL JUNK3 ; %150151972000 2 
BOOLEAN STOPTOG; %150151973000 2 @ 
VERERRARERRAR EES as x (RARER OR EE xt ewer [Aaa Vx ) SO ste ee 2 
PROCEDURE EXPANDC As RSIZE)3 VALVE RSIZE3 REAL RSIZE$ ARRAY ALOD3 51975000 28 
BEGIN %150151976000 1@ 
SAVE ARRAY BCO!RSIZE]3 %150151977000 i 
DEFINE *#150151978000 31 
FTCHSTssS +34 DL 8201 +54 SKIP 3063 #150151979000 22|@ 
CIF HEN DSt=sSET E 2E §0151980000 ss 3 
CTFRSTiSSps+5sO [8 S01 4457 SKIP 3503 4150151981000 : 
15CIF SB THEN DSt=SeET ELSE pSt=sRESETSSKIP SBD#3 4150151982000 31 @ 
Pee Weer ere are ee er PE S000 ws eels oe inl aS ote ee ee Ss bas 
STREAM PROCEDURE CHANGEVECTORS(AsB)3 *%150151984000 ia 
BEGIN LOCAL MOMAsMOMBS 2150151985000 4 @ 
Sites : = MASET 9 ee ee ee 3 
SIt=zlLOC BsOl:=LOC MOMBSFTCS %150151987000 a0 
S1t=sLOC MOMBSDI22L0C ACTF %1501519688000 «|@ 
SItsLOG MOMASDI3S3L0C BSCTFS 4150151989000 a ie 
STteLOG BIO SsMOMASDSESWOS; %150151990000 4 
SItsLOC A3O11=MGMBs0S#=NDS; %150151991000 4@ 
0 N TORS: §015499 ae 4g 
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CHANGE VECTORS(AsB)3 150151994000 th 
oF 995000 As 
SPER ED EL FT TCR EE Pooh LTTE TERT HH ee ET TePT eT WEP TET are Free ery Tek . 
LABEL LOOP» GIVITUP» XIT» ABORT» CONFLICTS %150151997000 7 1@ 
50151998000 51 
COMMENT , % 150151999000 : 
THE FOLLOWING CODE SETS UP THOSE VARIABLES WHICH wILL NOT %150152000000 “| @ 
NEED REIN TI ALIZING BETWEEN EXECUTIONS OF THE TEST %4150152001000 iite® 
x ae ¥150152002000 mes : ‘e 
MAINT 1STEST@t OR 3.< TEST < 83 ¥150152003000 6 
WRIGSTEST. 5.2 AND TeSt w0n 10: NEO .33... 59004000 Alter ue s 
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IF NOT MAINT AND WRT AND NUKRT THEN %150152005000 
e BEGIN %150152006000 . e 
ON __%150152006400 
; 1 WRITECOUTFI»DASH)3 %150152007000 
@ HE VECOOTET NOUOF > TESTE)! %150152008000 
3 WR NASH 009000 - 
4 60 ABORT! %150152010000 
ee): ENDS %#150152011000 
6 __IF WRT AND WRILOCK THEN %150152012000 is 
’ IF NOT MAINT THEN %150152013000 
T GIVITUP? BEGIN *%150152014000 
a : WRITECO *DASH ao 150152015000 
to WRITECOUTFI*WRTLOCKFeTESTL)3 %150152016000 
eo" WRITECOUTFI*DASH)3 %150152017000 
pee ete reece 0-10] 31 wet ne eee rere 1650-15 4-100 See 
4 END %150152019000 
Y ELSE %150352020000 
| Sere ee eee 5, ne nee CEC TST. | eee 
ne Ts2JACOs0]3 %150152022000 
e” WHILE THOT CCI b1y 10000), MOU 100% LOCKWORD) DO Is=1+100008 52023000 
END3 %150452025000 
@» IF CNTIS®TESTARRAYCTESTINX]) < 0 THEN %150152026000 
1 
: ABREV!=FALSE3 %150152028000 
@» IGNORERRORS t=NOTC(NOISEQNERROR Sa8LONT16£28149))3 %150152029000 
P a a ra tee a as ne ee ee et PO SO IU OOO aie yee —— 
P ELSE %1501452031000 
@ BEGIN 4150152032000 
27 NORE RROR N ONE RAROR S$ sF Ai SE 3 Q 000.) Se a ee 
pe ABREVt=BL(NT1, (2:1])3 , SER CEURTT TT: 
Or END} %150152035000 
Pp R i 2_AND Ss J 2s 10 O36000 oo 
SHIFtSTEST26 OR TEST=7 OR Tpeie ie OR TeEsTsi1; %150152037000 
@ | REPEATSeNTL,COFI3 . -*€150152038000 
P DEL A = RLOLl; 01520 OOO Se ite he Be 
a ROS=BLONT1eL434))3 %150152039100 
o» NODATASSBL(NT1),(32193 %150152039200 
pe MOD 10 # HEN 39300 sss 
ié IF NOWRT THEN _ %150152039400 
@ » IF NOT CNOISEQNERROR OR IGNORERRORS OR ABREV OR NODATA) THENS2039500 
i ist, ye Q O39A00 ote. ots 
: CaNGieree res OR LONGR#STEaT=ies %159152040000 
@ i: KWIK?=TEST > 123 4150152041000 
B his ON NY LSet N HEN “1.9 Q4 le bd 
" IF MAINT THEN 12 ELSE IF KWIK THEN 180 ELSE 303 iegi500 (66 
e@ IF OLOBUFFLTH NEG BUFFLTH THEN %150152044000 
FOR [820 STEP 1 UNTIL 1 DO EXPANDCCOMPAKEBUFFEIe*]*BUFFLTH)S 52046000 
e i FOR 1180 STEP 1 UNTIL 3 (bo EXPANDCDISKE4s*]sB8UFFLTH)3 150152047000 
" XPAND a BBOOO 
OLDBUFFLTH? =BUFFLTHS ish %¥150152049000. 
@ F : ENDS. : : %150152050000 
Bt TAtSIF , -ELS Q 51000 
FOR 1820 STEP 1 UNTIL 2 DO %150152054000 
@: DLTACII]3= %150152055000 
F $95 OMI T=OM OR NOT T P %#150152056000 
pS IF SOELTA > 0 THEN SDELTA ELSE ae #150152057000 
@ $SPOP OMIT oa Las _ %150152058000 
g lis REV. THEN a Se os -%150152059000 
e 
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gy y 5 2 E C : 
p> & a 3 BS ah 2 


oe Nm HW FF WH = 


== 
- 9 


12 


oe 


SZCIJ DIV CIF FORTYMILL THEN 3 ELSE 6) %150152059100 
ELSE 1434 %150152059200 
fot es t= a) (82383 ——______- 4120152061000... 00. 
CI¢aCCBUFFLTH+29) DIV 30 + BCVELUTSUTEE ON CET ATTIRE 52062000 
TODCLIS=IQODCOJ&COREADDR(OISKL sO] (CTC); 150152063000 
____... LODLA TPs INDPORCORFADDR(DISKCArO ICTCIigitessa7eiis sss 180152064000 ~~ 
IODC 3IJS=IOOL2I&COREADNRCDISKEC 320) ICCTCI; %150152065000 
JUNK S=COREADDR(RES)3 %150152066000 
poems 2A 8 oy GE Lo ee 0 i MB Os a? nae ae eeeeennameneeemen 2.105 )-1 01-1 40] 9] 0 ee 
LOCATIONCTISEC JUNK I GUNITCl2s42io ailata7iids 4150152068000 
IF NOT LONGR THEN %150152069000 
______ _GETPATERN(BUFFLTH+tsSHIFTBUFFeWRTsKWIK)S 50952070000 
IF NOT SHIF OR LONGR THEN %150152071000 
BEGIN 150152072000 
vn neneeMOVECBUFF LTH» SHIFTBUFF »OISKCOsi I), HUH 20739000 a 
MOVE (CBUFFLTHsSHIFTBUFF sO01SKC1s11)3 %150452074000 
IF (NOT MAINT) OR WRT THEN %150152075000 
Se Atal Sata tt eat BR Nee Pe a ase Se ee Sm en ed oe OOOO... 
MOVE CBUFFL TH» SHIFTBUFFs CUMPAREBUFFIC211); *%150152077000 
MOVECBUFFLTH»s SHIFTBUFF »CUMPAREBUFF[1911)3 %150152078000 
sneet! pe ts OO LeU OU. 

END$ %150152080000 
SZC10]$s"25"3 SZri4]te"Sa"3 *#150452060;00 

-LOGBUFFERCL Js nGBurFERE SOL 27 384 RIP OsM SS ARTES I12I425673 4150157081000 
LOGBUFFERC2]820CTALCTIME(U))3 150152082000 
LOGBUFFERC 3)? =BEGINADDRACSEGS4+1 C3! 2ut20); %150152083000 
—___.-LOGBUFFER413sTeCOUNTs 9504 5 2084000. 
LOGBUFFERC538aERRORSS : %150152085000 
LINKITUPS %15041520686000 

DOP: KI 50G 5 20B7N0NO 

%150152088000 


SOET 


$sPOP 


COMMENT BEGINNING OF TEST EXECUTION@RETURN HERE TO START AGAIN} 52089000 


a a ie ee POD ae ce 


ae en nese nt le A TI Pt 


WRITE COUTFICDBLI)3 %150152091000 
ROTOG! #23; WRTOG?s03 #1501520%2000 
W ; Q 093000... 
CLEARCOUTBUFFER,9)3 150152054000 
TESTDESCRIPTION( TEST» MAINT» WRI*REVs SHIF sLUNG»sLONGRsOUTBUFFERs%150152055000 
BU TH DS $150152096000. 
WRITECOUTFIs9e/OUTOUFFERI *])3 4150152097000 
WRITECOUTFIsBASH)S %150152098000 
WRITECOUTFILDBL I> EUF* BEGINADDR DIv 10000008 2150152100000 
IF FORTYMILL THEN "LB" ELSE "1 "»20xUKTYPE)S %#150152101000 
RROR&SSCOUNTI=SC8 503 4150 Q2 Lene 
COMPAREDATA! sADDRESSINGCOMPLETEPeFALSES %150152103000 
RESLOJISTOMASKS MOVE C3eRESCO]sRESC4I)3 150152104000 
SFAtsFILEADDR* <IF REV THEN ENDADOR ELSE BEGINADDRS ¥150152105000 
STOPCHECK$ 2150152106000 
OMIT=OMIJT OR NOT TUNEUP 150152106050 
TMS=TIME(1)3 T&=TIMEC3)3 . 150152106100 
OMIT 150152106450 
IF REV THEN ¥150152107000 
REVERSETEST -$4159152108000 
ELSE %150752109000 
IF LONG TREN #150152110000 
LONGTEST 2150152111000 = 
ELSE. . %150152112000 
IF KWIK. THEN 4150152113000 
QUICKTEST ae %¥150152114000 


Data Documents/inc. 


ELSE 150152115006 
FORWARDTEST3 150152116000 
XIT: Be eS ee neo ons a a Od Spe COOL ais ote he 
SSET OMITSOMIT OR NCT DEBUG *150152118000 
IF MESSP NEQ O THEN #150152119000 
BEGIN 6) 20000 
WRITECOUTFIC OBL] »MESSP»MESSAGEL*))3 #1501521210006 
MESSP3=03 #150152122006 
NOs } - (QE © pee eer eee ee 
$POP OMIT %150152124000 
IF STOPPER NEQ@ © THEN #150152125000 
Se BG Nita) iota i ee A alt te ee tee eG Oe | OO 0 easel nas fa Geet 
FOR y:=0 STEP 1 UNTIL 3 OO %15015212700C 
BEGIN JUNKS#LOCATIGNCIIJ CCE Is WALTCUUNKs LUMASKISENLS 3150152128000 
LG TG Oe Ti i ie es es De ee I i co ant ses eet od ore Ne ee 
REPEAT#=03 . %#150152130000 
STOPPER SSREAL (STOPPER=3)3 #150152131000 
Bi a tN DN a i a tt Sh Oe a ee 
fs IF LONG THEN EACADDRiSENDADORtCIF LONGR TrhEN 29 ELSE 1)2 %150152133000 
eo” IF ERROR > O TREN £150152134000 
bp sage ce ucenes Dc : 321: en ee ee 
al, WRITECOUTFICPAGE)) %150152136000 
ELSE WRITECOUTFIsSTAR)3 %#150152137000 
_$5FT OMITZOMIT OR NOT TUNEUP 9H VT I7OSGO. 
WRITE COUTFIs<"A\QWALTS"»2 TB >»NOWAILT)S 150152137100 
NOWAIT#=03 150152137200 
S ECL 150152137300 
CTIMECL) = ETM) 46023 *150152137400 
WRITECOUTFIo<"I/0 TIME =%,F10.1," SECONDS", ¥150152137500 
Bae cle oo oN cs ke ka 8 Pe 2 re en ee meeeES, 016 Lee NS AF. 1 oY s eae ee ae 
$PQP OMIT %150152137650 
ee? SEGSF » SEGCOUNT)4 SEGCOUNT #203 4150152138000 
W RROR RROR eee aE Ree ee OME En 1 Er > A 5 011 ¢ ee ee 
GRETECOUTELG Cat TESTO) . %150152140000 
IF REPEATI3REPEAT“1 > O THEN GO LOUP3 pte yiee 100) 
OO Pe eT San REPT 
LOGBUFFERCLJS=LCGBUFFERCIIJ&OL 2224383692458 3); = 150152143000 
LOGBUFFER(2]®20CTALC(CTIME(0))3 4150152144000 
LOGBUFFERGC4 I &¢=ICCOUNTS HOT 2145000 Ged 
LOGBUFFERE5172=ERRURS3 4150152146000 
LINKITUP3 #150152147000 
; U BOOO 
ABURTS %150152149000 
IF OUTSWITCH NEQ 1 THEN ARITECUUTFICPAGE])3 %150152150000 
BLCSTOPPER) ANDO STOPTUG THEN $150152151000 Seo 
BEGIN DATIME3GU EXITSENDS ; %1580152152000 
STOPTOG!=FALSE3 ; #150152153000 
‘END OF RUNATEST; %150152154000 —— 
$SET OMITSOMIT OR NOT VEBUG 54020100 
$POP OMIT 54020700 
PERE EAS ASR SELA NS POP N NES RSENS TANS N ENN VERSA SSCS NSA STEEN AEE eee KOA SCOOOS -_ e 
PROCEDURE SETUPMAINTS | -  §4370000 
| 54370005 
COMMENT. SETS UP JAC*s*)e YALOs*) CONTAINS ADDRESS 54370010 —_ 
PAIRS FOR FORWARU ADURESSING. Jalis*) CONTAINS 54370015 
ACORESS PAIRS FUR REVERSE ADDRESSINGS 54370020 
= . : 54370025 
BEGIN ' §4380000 
INTEGER EU BSUsESUs A1/AZs 43> 19 EAs BAPROAD FEMI 54390000 


AB RAPUP Ss UCL. , Haodonoo 
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6 0 ° 9, * 5 y > 55 = x. x. 


4 54410000 
BATSMAINTADDR(=BEGINAUOR D3 54420000 
rae =E a I gt ed I NN: eo a a 
REVSaTRUES 54440000 
RBAISMAINTADDR(*BEGINADOR 54450000 
BSUtS((CBA DIV 10000)MaD 100) DIV 8)3 54470000 
ESUSSCCCEA DIV 10000)MO0 100),DIV 8)s 54480000 
3 : ay = 
IF SEGS LSS 40000 GR NOT FORTYMILL TREN 54500000 
BEGIN 54510000 
oan, at Aer SENN Dee SBA> PaMPE AR UU dQ ROOOONUU 
JACI SOU SSEAs JALCLSLItsReaA3 54530000 
END ELSE 54540000 
STR EA Ree eee we ST a a oo ee GOO oe! on oe es oes 
IF ALt=(1OO00COOXEU+B80000xBSU+40000) GTR BA THEN 54560000 
BEGIN 54570000 
Ps ene ee fsBAs JA 3A i a AS BO OOO cle cs ly a 
END ELSE 54590000 
BEGIN 54600000 
JIPSHAs alts: 3g 9s tae oh get OOO COE 2 wee co eee a to oe a Se 
ENDS . | 1 54620000 
IF ASGtF(LOONGCOOXEUs+AU0CUxESU+39499.) LSS Ea 54630000 
la ar PIN oe ee eS Sw Be aN ee ee ce ee ee at Oe ONY OS. are oe es ete, 
BEGIN 54050000 
JACL»~U]tstas Jellies bl ster Away999G; 54600C00 
ae ee a la ae a es BO OGIO i ne ee oa a Fn as 
BEGIN 54680000 
JACL»AOVIZEAs JAC eT T82A2°399993 54690900 
BS sg aaah ne a tere a TU OO lel hes Sed. 
A1t=A1+400004 Act BAe 4oguggs 54710000 
IF AL GTR EA THEN GO WRAPUP ELSE 54720000 
ihe leat Eau Boos OR Se SE ee ee BU ns 
BEGIN 54749000 . 
IF AL+8000U GTR EA THEN GO COLLECTS 54750000 
Pe esr n inns Le, AL Os TU TEALS JAC Ooi +p ]tFAyt399997 5 POUD00 Ss 
JACLeLJisAes Jallelt+i}s=ae2=399993 54770000 
ALIFAL+8000U03 ; 54?780000 
a Se a es sO Ose seen ee a ee OOO Oe on Vi ue Ae eas ee 
ENDS 54800000 
COLLECT? 54810000 
IF EA GTR AZ =C1V00000 xe U+8CCO0xESU+39999) THEN 594820000  _—_ss 
BEGIN 54830000 
JACOsIT VP =zALs JalusT+11iFA3; 54840000 
END ELSE 54850000 tee =a 
BEGIN 54860000 
JSALCOsT]¢eALA JATOsT +1) 2=F EAS 54870000 
3 54880000 ee ee 
IF A333C1000000XEU+ g0000xBSLt40000) GTR BA THEN 54890000 
BEGIN 54900000 
ALLsL]i=Ads JACI» [+1] 32A35 ____- 54910000 
ENO ELSE 54920000. 
BEGIN. ar  §4930000 
wt ACle Lt eA2s JAC e T+ 1] tFRBAs : “ §4940000 
ENDS 54950000 
END; 54960000 
WRAPUPS 24970000 7 aetna sha 
ee aa i 54980000 
i eklad Baht a . ay ‘ 54990000 
ENDS Pee a 55000000 
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on nrt~ mo TF FF WH = 


he ae 7 eS ee ee 5 eS eS Th 


BS 25 8 8 


51 


Fo te de ete I I I IOI IOI IIIT I On iint io tik toee 55010000 


WAS SET Ete vaIN Te she) Pat ONG sou LTCHeN SADURESSINGCOMPLETE?= 55011000 
SFAI@BUFFLTNtsJUMPOFF 1a JUMPGOUNTt« %150155013000..t—t—~C~«*s 
$SET OMIT=OMIT OR NOT TUNEUP %#150155013040 
iW é ¥ O 050 
$POP OMIT -  %150155013060 
$SET OMIT=UMIT OR NOT VEBUG 55013100 
M L205 O00 
$POP OMIT 55013300 
ae OG EO). 55014000 
uin \ ad a i R & eet er 
THAT ALL VARIABLES IN THIS BLOCK ANE PROPERLY 55016000 
Naat teeo - Tis 1S NECESSARY BECAUSE THE 55017000 
_ SAME PR FN : 
a aa W aneces LOCAL TO THE SCAN BLOCKS 55019000 
IF FORTYMILL?®OKTYPE=2 THEN 55020000 
wis oa SSRN RE 5S a a aa OOO ia en Ce th, 
SZCO] 82255 SZ01)]2=33) S£le2ls=42s aZl yl) 3=253 55040000 
§Z65]:=583 SZc6l]i=243 S2Zc7]8=573 OZLgI12=99; %150155050000 
END ESE EO nn 
BEGIN 55070000 
SZ(0]#=243 szt1)%#323 SZC2)22443 SZCH] 2 e243 55080000 
_-——___________SZe§liz563 S7f6lise3s S2r7)ie5S3 S7paliagoe sss gg s04g55090000. 
END$ 55100000 
LOGBUFFERL1]#= 0 & 2(1884632) & MIX[20%43t5]} 55100100 
~-« TOCOUNTI® O3 55100300t—“‘i‘it:*s 
FOR Peo ties ret ba " 55130000 
MASK UR KRUMA PLE NN ; Q WOUOOddO oo ooo 
BEGIN “SETUPWAINTS GO RUNTESTS; END; 55150000 
RUNTESTS? 55160000 
“OR TES % $= P L 6 NO 0000 foe ek 
IF NTL te TESTARRAYETESTINXI= SREALCNUT FALSE) THEN . 55170100 
TESTINX!®64 ELSE §5170200 
F_NT NEQ O THEN : BOO 008i ete sales 
RUNATESTCTESTS=ENTIelL2rit6l)2s 55190000 
$POP OMIT 55190100 
IF NOT DONETOG THEN GO TO RETURNS %150155200000 
END} 55210000 
RHSHERAAKRKEND OF DISK TEST OER Sts Ran EeE OP EO Reena Teen eee tesa estes 2850240000 
ALLDONE? 5230000 a2. 
IF NOT FILEGPENED THEN GO EXITS 55240000 
WRITECOUTEICDBL1]»DONETESTS)3 55250000 
DA 260000 7 
EXIT: END ONLINE MAINTENANCE ROUTINES, 55270000. 
ENDJEND, LAST CARD ON OCRDING TAPE 99999999 
SxQ2SxQ2SxXO2S KOR SKNO2eSK O72 SxO: 


QZSKX QA SKQAEKOISKO2SXOPEXOPEXOSSKOZSXGZSXQ2SxQ2SKQ 
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LABEL OOOQQOOOOOPRINTEROOI/75098CC EXECUTE OBYECT/READSFILE SUURCEFILE=SYMBOL/OLMAINTSENDe OBYECT /READ @ 


a A PA NRA A Ne tt A Re ne Re ce em 


Bias Se eA NE a mt ct hone BN SS ta : 
23 @ 
ee a ee eae, eae 24 


ne erent tern nnn eps nt ntti i ne tyme sa neem sense i aan 


